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000000 
000000 
000000 



000001 
000017 



. TITLE TSXPRO 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSXPRO 



TSX-Plus PROxxx Routines 



TSXPRO: 
PROBAS: 



TSX-Plus interface routines for Digital PR0~3xx series 
personal computers. 

Copyright (c) 1984.- 1985. 
S&H Computer Systems* Inc. 
Nashville, Tennessee 37212 
U. S. A. 

Assembly parameters 

Set QPASM to 1 to include support for quad serial line unit. 
Set QPASM to to exclude quad line unit code. 



QPASM 
MAXPOC = 



1 
15. 



i Select quad port code 

i Max consecutive output chars to PI 



Global definitions 



. GLOBL TSXPRO 

. GLOBL PROSIZ, PROLIN, PROINI, PRQHAN, PIHAN, PRONOP 

.GLOBL PIDRIV 

Global references 

. GLOBL FRKCQE, DOSCHD, CORUSR, LXCL 

. GLOBL LMXPRM, *XCHAR, LSW3, *OITIM. LSW5, PROSLT 

. GLOBL FORK, INTEN, TTINPT, RBERR, OVRRUN, FRMERR, RCVPAR 

. GLOBL RSR, PSW, INTPRI. CDSTRT, CDGDSS, CDSDSS, *PHONE, ILSW2 

. GLOBL LCDTYF, CDX*PC» CDXSPP, MS*DTR, MS*CAR, MS*RNG 

. GLOBL PROBRK, *DEAD* PPTERM, LSTHL, CDX*PI, *HISTP 

. GLOBL INVEC, LOUTIR, S9600, CDSXOF, CDSXON 

. GLOBL KPAR5, KPAR6, VPAR5, VPAR6, PISRT, CDCLOK, VSWPSL 

. GLOBL RT*BAS, IOFIN, FP*PIO, LSW10, *SXON, SSXOFF 

. GLOBL MS*BRK, CDSBRK, CDSSPD, VT100, ITRMTP, TTRSAV 

. GLOBL LPSSPD, LPfPAR, LP*ODD, LP*7BT, S4800 

. GLOBL RPRCSR, RPRVEC, DWTYPE, VIDCSR, CDX*GP 

. GLOBL SROMMR, SR3MMR, MMENBL, EMMAP, LMXNUM, LMXLW 

. GLOBL MXVEC, MXCSR, PROBUF 
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. SBTTL liacrot 

Macro to disable interrupts 

. MACRO DISAI3L 
BIS #340, @#PSW 
. ENDM DISA13L 

Macro to enable interrupts 

. MACRO ENABL 

BIO INTPRI.- ©&PSW 

. ENDM ENABL 
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5 


000000 




6 






7 






8 






9 


000000 


000000 


10 


000002 


000000 


It 


000004 


000000 


12 


000006 


000000 


13 


000010 


000000 


14 


000012 


000000 


15 


000014 


000000 


16 


000016 


000000 


17 


000020 


000000 


18 


000022 


000000 


19 


000024 


000000 


20 

2.1. 


000026 


000000 






23 






24 


000030 


002156' 


25 


000032 


0000000 


26 


000034 


00 1 740 ' 


27 


000036 


00 1 1 72 ' 


28 


000040 


001254' 


29 






30 






31 






32 


000042 


000000 


33 






34 






35 






3o 






37 


000044 


000000 


38 


000046 


000000 


39 


000050 


000000 


40 


000052 


oocooo 


4i 


000054 


000000 


42 


000056 


1 77777 


43 


000060 


062550 


44 


000062 


000000 


45 


000064 


000000 


46 


000066 


000000 


47 


000070 


000000 


48 


000072 


000017 


49 






50 






51 






52 


000074 


00 1 002 


53 


000076 


000050 


54 


000100 


010050 


55 


000102 


002002 


56 






57 







. SBTTL Data areBB 

Vector of addresses used to move information between TSXPRO and PI handler. 

PROVEC: 

Addresses passed from the PI handler to TSXPRO 

Address of initialization code 

Number of words of initialization code 

Routine called to send a char to the video 

Routine called for end-of-f rame interrupts 

Routine to process keyboard input interrupts 

Routine to process keyboard output interrupts 

Routine to process an I/O queue request 

Address of video CSR address 

Pointer to REENAB cell 

Pointer to PRIOO cell 

Pointer to VDFLAG cell 

Pointer to PIGOFL cell <1==>PI run, 0==>stop) 



PIINAD 


. WORD 





PIINWD 


. WORD 





PIXOCH 


. WORD 





PIXEOF 


. WORD 





PIXICH 


. WORD 





PIXIOI 


. WORD 





PIXIOQ 


. WORD 





$VDCSR 


. WORD 





REENAB 


. WORD 





PRIOO: 


. WORD 





VDFLAG 


. WORD 





PIGOFL 


. WORD 






Addresses passed from TSXPRO to the PI handler 



WORD 


KBDCHR 


WORD 


FORK 


WORD 


PINDCH 


WORD 


GPRCSR 


WORD 


GETSLT 



End of address vector 



. WORD 



O 



; Routine to process an input character 

; Address of system .FORK routine 

; Routine to get next char to send 

; Routine to get CSR address for device 

i Routine to get option slot # for device 



;End of PROVEC vector 



Data areas: 



PILINE 


. WORD 





PPLINE 


. WORD 





CPLINE 


. WORD 





PI BASE 


. WORD 





PIOIFL 


. WORD 





P ISC NT 


. WORD 


-1 


R50PI: 


. RAD 50 


/PI / 


VI DSL T 


. WORD 





VIDVEC 


. WORD 





QPCSR: 


. WORD 





QPVEC: 


. WORD 





PIMOC: 


. WORD 


MAX P DC 



# of line 


# of line 


# of line 


Base 64-b 


Non-zero 


Counts ou 


Name of P 


Option si 


Address o 


Address o 


Address o 


Limit con 



connected to Pro console 
connected to printer port 
connected to communications port 
yte block # of PI handler 
==> Doing PI output interrupt 
tput starts per clock period 
I handler 

ot # where video controller is 
f video vector A 

f base of registers for quad port 
f vector for quad port 
secutive output chars to PI 



Table of possible video device ID values 



VIDTBL: 


. WORD 


1002 




. WORD 


50 




. WORD 


10050 




. WORD 


2002 


; Byte 


d a t a 





350 video 

380 video 

380 video with EBO 

IVIS video 
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000 000 QPLX: .BYTE 0,0,0,0 i Line #'s connected to each quad port line 

GPMQDM: .BYTE ; 0»=>4/0 configuration, l==>2/2 configuration 

QPSLOT: .BYTE iSlot # where quad port controller installed 
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1 
2 
3 
4 
5 
6 

/ 

8 

9 

10 

1.1 



1 '73700 



000007 
000020 
000200 



. SBTTL System control register 
Control values in system status register 
PSSREG = 173700 > Address of status register 

Flags in status register 



SS*BNK 
SSSMON 
SS*BRK 



20 
200 



iMask for memory bank information 

; Monitor-present flag 

; Break enable flag for diagnostic port 
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1 




2 




3 




4 




5 




6 




7 




8 


173200 


9 


173202 


10 


173204 


11 


173206 


12 


173210 


13 


173212 


14 




15 




16 




17 


00000.1 


18 


000002 


19 


000004 


20 


000010 


21 


000020 


22 


000140 


23 


000200 


24 


000200 


25 




26 




27 




28 


000000 


29 


000020 


30 


000030 


31 


000040 


32 


000050 


33 


000060 


34 


000070 


35 


000100 


36 


000110 


37 


000120 


38 


000130 


39 


000140 


40 


000160 


41 


000170 


42 


000200 


43 


000240 


44 


000260 


45 


000300 


46 


000340 


47 




48 




49 




50 


000001 


51 


000002 


52 


000003 


53 


000004 


54 


000005 


55 


000006 


56 


000007 



. S13TTL Interrupt control values 

late to the interrupt control system on the 



The following values re 
Professional computer. 



Addresses of control registers 



ICODR 

ICOCSR 

IC1DR 

IC1CSR 

IC2DR 

IC2CSR 



1 73200 
173202 
1 73204 
173206 
173210 
173212 



Interrupt controller 

Interrupt controller 

Interrupt controller 

Interrupt controller 

Interrupt controller 

Interrupt controller 





O 

1 

1 

2 
n 



data register 
control register 
data register 
control register 
data register 
control register 



Interrupt Mode Register 



IM*PM 

IM*VS 

IM*IM 

IM*GIP 

IM*IRP 

IM*RP 

IM*MM 

IM*STV 



1 

2 

4 

10 

20 

140 

200 

200 



> Priority mode <0=fixed* l=rotating) 
; Vector selection 

; Interrupt mode <l==ODo not interrupt) 

i Group interrupt polarity 

i Interrupt request polarity 

; Mask for register preselect values 

> Master mask <l~=>Enable group interrupts) 
i Standard value for TSX-Plus 



Command values that can bo stored into CSR register 



IM*R5T 

IM*ZRM 

IM*CRM 

IM*ZM 

IM*CM 

IM*OM 

IM*SM 

IM*ZR 

IM*CR 

IM*OR 

IM*SR 

IM*CHP 

IM$ZS 

IM*CS 

IM$LMB 

IM*CMB 

IM*PR 

IM*PA 

IM*PRM 



000 
020 
030 
040 
050 
060 
070 
100 
110 
120 
130 
140 
160 
170 
200 
240 
260 
300 
340 



bit 
sin 
all 
sin 



Reset 
Clear 
Clear 
Clear 
CI ear 
Set all b 
Set singl 
Clear all 
Clear sin 
Set all b 
Set singl 
Clear hig 
Clear ISR 
Clear sin 
Load mode 
Control m 
Preselect 
Preselect 
Preselect 



s in IRR and IMR registers 

gle bit in IRR and IMR registers 

bits in IMR register 
gle bit in IMR register 
its in IMR register to one 
e bit in IMR register 

bits in IRR register 
gle bit in IRR register 
its in IRR register to ones 
e bit in IRR register 
hest priority ISR bit 

register to zero 
gle bit in ISR register 

b i ts 
ode bits 

IMR register 

ACR register 

response memory 



Values used with command codes to select specific interrupts 



IM*KBR 
IMtKBT 
IM*CPD 
IM*CPM 
IM*PPR 
IM*PPT 
IM«CLK 



1 
o 



5 
6 
7 



ICO - Keyboard receiver interrupt 

ICO - Keyboard transmitter interrupt 

ICO - Communications port data transfer 

ICO - Communications port modem change 

ICO - Printer port receiver interrupt 

ICO ~ Printer port transmitter interrupt 

ICO - Clock interrupt 
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i 




2 




3 




4 




5 




6 




7 


000001 


S 


000002 


9 


000040 


10 


000100 


11 


000200 


12 


00 1 400 


13 


002000 


14 


010000 


15 


040000 


16 


100000 
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SBTTL Video display control values 



The following values relate to the video display. 
Control flags in Constrol/status register 



VP*LMD 
VP*IMD 
VP*OEF 
VP*EFI 
VP*EOF 
VP*COO 
VP*CME 
VP*QMP 
VP*DOI 
VP*TRD 



1 

2 

40 

100 

200 

1400 

2000 

10000 

40000 

100000 



Line mode definition 

Interlace mode definition 

Odd/Even frame flag 

End of frame interrupt enable 

End of frame flag 

Mask for class of operation 

Color map enable 

Option module presence flag 

Done interrupt enable 

Transfer done flag 
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3 



4 




5 




6 




7 




8 


173400 


9 


.173402 


10 


173404 


11 


173406 


IP 


177560 


13 


177564 


14 




15 


000220 


16 


000224 


17 




IS 




19 




20 


000001 


21 


000002 


22 


000010 


23 


000020 


24 


000040 


25 


000200 






27 




28 




tz.7 


000014 


30 


000010 


31 


000014 


32 


000020 


33 


000040 


34 


000300 


35 


000102 


wO 




37 




38 




39 


000017 


40 


000260 


41 




42 




43 




44 


000001 


45 


000002 


46 


000004 


47 


000010 


48 


000020 


49 


000040 


50 


000300 


51 


000047 
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. SBTTL Printer port control values 



The following values relate to the "printer port" which can optionally 
be used as a time-sharing terminal under TSX-Plus. 



Reqister addresses and vectors 



PP*DBR 
PP*STR 
PP*MDR 
PP*CMR 
PP*RCS 
PP*TCS 

PP*RCV 
PP*TRV 



173400 
1 73402 
173404 
173406 
177560 
177564 

220 



Flags in the status register 



PP*TR 
PP$RD 
PP*PE 
PP*0E 
PP*FE 
PP*D5R 



1 

2 

10 

20 

40 

200 



Flags in mode register J 



PP*LEN = 


14 


PPS7BT « 


10 


PP*8BT = 


14 


PP*PAR = 


20 


PP*EVN = 


40 


PP*SBL = 


300 


PP*M1F ~ 


102 



Flags in mode register 2 



PP*BRS 
PP*M2F 



17 
260 



Command reqister 



PP*TEN 

PP*DTR 

PPSREN 

PP*FB 

PP$RE 

PP*RTS 

PP*0M 

PP*CMF 



1 

2 

4 

10 

20 

40 

300 

47 



j Data buffer register 

> Status register 

; Mode registers 

; Command register 

; Receiver CSR for maintenance mode 

; Transmitter CSR for maintenance mode 

; Receiver vector 

> Transmitter vector 



» Transmitter ready 

■> Receive done 

; Parity error detected 

> Overrun error 

> Framing error 

; Data set readu 



Mask for character length 

7 bit characters 

8 bit characters 
Enable parity control 
l==Oeven parity* 0~=>odd parity 
Mask for stop bit length 

Standard mode register 1 value for TSX-Plus 



; Mask for baud rate select field 

; Standard mode register 2 value for TSX-Plus 



Transmitter enable 

Data terminal ready 

Receiver enable 

Force break transmission 

Reset error 

Request to send 

Operating mode mask 

Standard command register value for TSX-Plus 
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1 



4 




S 




6 




7 




3 


173300 


9 


173302 


10 


173306 


11 


173310 


12 


1.73312 


13 


173314 


14 




15 


000210 


16 


000214 


17 




IS 




19 




20 


000007 


21 


000070 


22 


000300 


23 




24 




25 




26 




27 


000000 


28 


000001 


29 


000002 


30 


000003 


31 


000004 


32 


000005 


33 


000006 


34 


000007 


35 


000000 


36 


000001 


37 


000002 


38 




39 




40 




41 


000010 


42 


000020 


43 


000030 


44 


000040 


45 


000050 


46 


000060 


47 


000070 


48 




49 




50 




51 


ooooo i 


52 


000002 


53 


000030 


54 




55 




56 




57 


OOOOOJ. 
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. SBTTL Communications, port control values 



Control values for the communications port which may be used as 
a ISX-Plus time-shar inq line. 



Control registers and vectors 



CP*DBR 
CP*CAR 
CP*CER 
CP*M0R 
CP*M1R 
CPSBRR 

i 

CP*RTV 
CP*MCV 



173300 
173302 
173306 
173310 
173312 
173314 

210 
214 



Control/status Register A 



CPSARP 
CPSACM 
CPHCRC 



7 

70 

300 



; Data buffer register 
; Control/status register A 
; Control/status register B 
/Modem control register O 
; Modem control register 1 
; Baud rate register 

; Receive/transmit vector 
; Modem change vector 



illask to select read/write sub— register 
; Mask for command bits 
;Mask for CRC control bits 



Read/Write sub-register select values 

(These values are stored into CP*ARP and CP*BRP to select sub registers) 



CP*WR0 
CP*WRi 
CP*WR2 
CPS.WR3 
CP*WR4 
CP$WR5 
CP*WR6 
CP$WR7 
CP*RRO 
CP*RR1 
CP*RR2 




1 
2 
3 
4 
5 
6 

~7 
/ 





Writ 
Writ 
Writ 
Writ 
Writ 
Writ 
Writ 
Writ 
Read 
Read 
Read 



reg 

reg 

reg 

reg 

reg 

reg 

reg 

reg 

regi 

regi 

regi 



ister 

i ster 

ister 

ister 

ister 

ister 

ister 

ister 

ster O 

ster 1 

ster 2 



i 
t 

i 
< 

< 

f 
I 

< 
< 
t 
4 

< 



Command values for WRO under control/status register A 



CP$SA 


:.- 


10 


CPSRES 


JZ 


20 


CP*CR 


=a 


30 


CP*EIR 


s= 


40 


CP*RTI 


== 


50 


CP*ER 


:- 


60 


CP*EI 


zr. 


70 



; Send abort 

; Reset external interrupt 

i Channel reset 

i Enable interrupt on next char received 

/Reset transmitter interrupt pending 

; Error reset 

i End of interrupt 



Sub-reaister WR1 under control/status register A 



CP*EIE 
CP*TIE 
CP$RIE 

Sub- 

CP*REN 



1 
2 
30 



^External interrupt enable 

/Transmitter interrupt enable 

i Mask for receiver interrupt enable flags 



-register WR3 under control/status register A 
- 1 /Receiver enable 



£ 
\ 
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58 


000002 


5? 


00000'! 


60 


000010 


61 


000020 


62 


000300 


63 


000100 


64 


000300 


65 


000001 


66 




67 




68 




69 


00000. 1 


70 


000002 


71 


000014 


72 


000060 


73 


000300 


74 


000104 


75 




76 




77 




78 


000001 


79 


000004 


80 


000010 


81 


000020 


82 


000014 


83 


000040 


84 


000140 


85 


000010 


86 




87 




88 




89 


000001 


90 


000002 


91 


000004 


92 


000020 


93 


000 1 00 


94 


000200 


95 




96 




97 




98 


000001 


99 


000016 


100 


000020 


101 


000040 


102 


000100 


103 


000200 


104 




105 




106 




107 


00000/ 


108 




109 




110 




111 


00000''! 


112 




113 




114 





CP*SCL 


ss 


2 


CPSASM 


;r. 


4 


CPSRCE 


■~ 


10 


CP*EHP 


nr 


20 


CP*RCL 


=r 


300 


CPS7BR 


= 


100 


CP*8BR 


cs 


300 


CP*AW3 


:.z 


001 


> 

; Sub- 


-regi ster 


WR4 


CP4PAR 


rs 


1 


CP*EVN 


::= 


2 


CP*SBS 


- 


14 


CP*SMS 


ss 


60 


CP$CMM 


~ 


300 


CP$AW4 


:.-- 


104 



; Sync character load inhibit 

.; Address search mode 

.; Receiver CRC enable 

; Enter hunt phase 

j Receiver character length 

;7 bit characters 

;8 bit characters 

i Standard value for TSX-Plus 

under control/status register A 

; Parity en able 

; i==>even parity* 0==>odd parity 

j Mask for stop bits select value 

; Mask for synchronous mode control flags 

j Mask for clock mode value 

; Standard value for TSX-Plus 



Sub-register WR5 under control/status register A 



CP*TCE 

CPSCCS 

CP$TEN 

CP*SB 

CPt&LEN 

CP*7B7 

CP*8BT 

CP*AW5 



1 

4 

10 

20 

14 

040 

140 

010 



; Transmitter CRC enable 

; CRC polynomial select 

■> Transmitter enable 

.; Send break 

; Transmitter character length 

; 7 bit characters 

;8 bit characters 

; Standard value for TSX-Plus 



Sub-register RRO under control/status register A 



CP*RCA 

CP*INP 

CP*TBM 

CP*SH 

CP*TEM 

CP*BR 



1 

2 

4 

20 

100 

200 



j Receive character available 

> Interrupt pending 

j Transmit buffer empty 

» Sync/hunt 

/Transmitter underrun/end of message 

; Break received 



Sub-register RR1 under control/status register A 



CPSAS 

CP*RC 

CP$RPE 

CP*R0£ 

CP*RFE 

CP*E0F 



1 

16 

20 

40 

100 

200 



iAll sent — Transmitter ready for next char 

; Mask for residue codes 
; Received parity error 
; Receiver overrun error 
i Framing error 
> End of frame 



; Control /status Register 

.» 

CP*BRP ™ 7 

> 

; Sub-register WR1 under 

j 

CP*BW1 = 4 

; Sub-register WR2 under 



r B 



;Mask to select sub-register 
control/status register B 

; Standard value for TSX-Plus 
control/status register B 



TSXPRO — TSX-Plus PROxxx Routi MACRO V05. 04 
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115 


Q '7 7 7 "7 "7 


116 




117 




110 




119 


000000 


120 


000024 


121 


000030 


122 


000034 


123 




124 




125 




126 


00000.1 


127 


ooooor? 


128 


000004 


129 


000010 


130 


000020 


131 


000140 


132 


000200 


133 


000030 


134 




135 




136 




137 


000004 


138 


000010 


139 


000020 


140 


000040 


141 


000100 


142 


000200 



CP*BW2 



77777 



Standard value for TSX-Plus 



Sub-register RR2 under control/status register B 



CP*ITE 


= 









CPSIES 


::= 






24 


CP$ IRC 


.... 






30 


CP*ISR 


ss 






34 


i Modeir 


• c 


on 


tro 


1 Register 


CP*L.L. 


:::- 






1 


CP*RL 


■-.: 






2 


CP*SRS 


— 






4 


CPtfcRTS 


r:- 






10 


CP*DTR 


ss 






20 


CP*CS 


:;.= 






140 


CP*MM 


ss 






200 


CP*MCO 


~~ 






30 


> Mod en- 


c 


on 


tro 


1 Register 


CP*SMI 


:-^T 






4 


CP*TI 


::- 






10 


CP*CD 


r- 






20 


CP*CTS 








40 


CP*RI 


::;: 






100 


CPUDSR 








200 







; Transmitter buffer empty 
> External status change 
i Receiver character available 
; Special receiver condition 



Local loopbacfe 

Remote loopback 

Signaling rate select 

Request to send 

Data terminal ready 

Mask for clock source values 

Maintenance mode 

Standard value for TSX-Plus 



; Speed mode indicator 

i Test indicator 

j Carrier detect 

; Clear to send 

; Ring indicator 

; Data set ready 



€ 

« 



i 

\ 



I i 

< i 

' < 
i < 

i 

I 

.« 

< 

< 

< 

t 
i 
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SB'T'TL Ouad Serial Line Unit control values 



3 




4 




5 




6 


000064 


7 




8 




9 




10 




1 J. 




12 


000004 


13 


000100 


14 


000102 


15 


000106 


16 


000112 


17 


000120 


IS 


000122 


19 


000126 


20 


000132 


21 




22 




23 




24 


000102 


25 


000104 




000106 


27 


000110 


28 


000112 


29 


000122 


30 


000126 


31 


000132 


32 


000134 


33 


000136 


34 




35 




36 




37 


000020 


38 


000040 


39 




40 




41 




42 




43 




44 


000004 


45 


000010 


46 


000100 


47 




4B 




*f / 

50 


000002 


51 


000003 


52 


000004 


53 


000020 


54 


000040 


55 


000100 


56 


000200 


57 





Device ID for quad serial line unit 

QP$ID =~- 64 .; Device ID for quad serial line unit 

Addresses of registers relative to base address for module 

Read registers 

Module status register 
Mode register A 
Status register A 
Receiver register A 
Interrupt status register 
Mode register B 
Status register B 
Receiver register B 
Input port 



GPRMSR 


=s 


004 


GPRMRA 


— 


100 


QPRSRA 


._. 


102 


OPRRRA 


— 


106 


GPRISR 


:.;•- 


112 


GPRMRB 


::z 


120 


GPRSRB 


:..: 


122 


QPRRRB 


=■= 


126 


QPRIP 


-- 


132 


; Wr i t 


e r e g 


i sters 


QPRCSA 


::.- 


102 


GPRCRA 


- 


104 


QPRTRA 


.■_• 


106 


QPRACR 


cr 


110 


QPRIMR 


rs 


112 


GPRCSB 


=r 


i *"n 


OPRTRB 


r~. 


126 


OPROPC 


:::z 


132 


OP R SOP 


sr 


134 


GPRROP 


s= 


136 



Clock select A 

Command register A 

Transmitter register A 

Auxiliary control register 

Interrupt mask register 

Clock select B 

Transmitter register B 

Output port configuration register 

Set output port bits register 

Reset output port bits register 



Offsets to register addresses by channel and DUART 



QPRCOF 
OPRUOF 



020 
040 



,;Diff between channel A and B registers 
;Diff between DUART and DUART 1 registers 



Control flags for the quad serial line unit. 
Module status register 



QP*22C 
QP*40C 

OP $ I EM 



4 

10 

100 



Mode register 1 



GP*7BR « 


2 


GP*8BR = 


3 


QP*ODD « 


4 


GP*NPN ■■= 


20 


QP*BEM - 


40 


QP*SFL = 


100 


QP*RXR « 


200 



; 2/2 configuration 
■> 4/0 configuration 
> Interrupt enable 



>7 bit characters 

;8 bit characters 

i On ==> Odd parity 

; No parity <off==>Want parity) 

; Block error mode 

; Interrupt when silo full 

^Receiver RTS control 



< 

I 
I 
< 
I 
I 
I 
I 
< 
< 
< 

€ 
< 

i 
i 
< 
i 
I 
i 



i 
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58 




59 




60 


000007 


61 


000017 


62 


000020 


63 


000040 


64 




65 




66 




67 


000001 


68 


000002 


69 


000004 


70 


000010 


71 




72 




73 




74 


000020 


75 


000040 


76 


000060 


77 


000100 


78 


000120 


79 


000140 


80 


000160 


81 




82 




83 




84 


00000.1 


85 


000002 


86 


000004 


87 


000010 


88 


000020 


89 


000040 


90 


000100 


91 


000200 


92 




93 




94 




95 


000360 


96 




0'7 




98 




99 


000001 


100 


000002 


101 


000004 


102 


000010 


103 


000020 


104 


000040 


105 


000100 


106 


000200 


107 




108 




109 




110 


000063 



Mode register 2 



QP«1SB = 


7 


GP«2SH = 


17 


QP*TCS - 


20 


QP*TRS = 


40 



Command register 



GPSERX 
GP*DRX 
«P$ETX 
QP*DTX 



1 
2 
4 
10 



; One stop bit 

; Two stop bits 

; Transmitter CTS enable 

; Transmitter RTS enable 



Enable receiver 
Disable receiver 
Enable transmitter 
Disable transmitter 



Command values for command register 



GP*RPR 
GP$RRX 
QP*RTX 
GP*RES 
QP*RBC 
QP*SB1 
GP*EBT 



20 

40 

60 

100 

120 

140 

160 



Status register 



GP$RDN 
GP*FFL 
GP$TDN 
GP*7EM 
GP*R0E 
GP*RPE 
QP*RFE 
GP*BRK 



1 

2 

4 

10 

20 

40 

100 

200 



> Auxiliary control register 

j 

QP*AWA = 360 

> 

; Interrupt status register 



GP$TAR 
QP*RAR 
QP$BCA 
QP4CNR 
QP*TBR 
QPSRBR 
QPSBCB 
OP* I PC 



1 

2 

4 

10 

20 

40 

100 

200 



Interrupt mask register 
QP*AWI - 063 



Reset MR pointer 

Reset receiver 

Reset transmitter 

Reset error status 

Reset break change interrupt 

Start break transmission 

End break transmission 



Receiver readq (character received) 

FIFO silo full 

Transmitter ready (finished sending char) 

Transmitter buffer empty 

Receiver overrun error 

Received parity error 

Received framing error 

Received break 



; Standard value for TSX-Plus 



Transmitter A finished transmission 
Receiver A has a character 
Receiver A break status change 
Counter/timer ready 

Transmitter B finished transmission 
Receiver B has a character 
Receiver B break status change 
Input port status change 



/Standard value for TSX-Plus 



TSXPRO 
PRO IN I 



TSX-F 



Genet 
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1 
2 
3 
4 

5 

6 

7 

8 

9 

10 

11 

IP 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



<=:•■+ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
40 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000112 010146 



000114 004: 



000270 



. BBTTL PROINI •— General initialization for Pro 
Perform general system initialization for PRO. 
PROINI: MOV R1,~<SP> 

Set up information about which device is installed in each option slot 

CALL INISLT 
Set up address of video interrupt vector and CSR 



000120 
000124 
000126 
000132 
000134 
000140 
000144 
000150 
000154 
000160 
000164 
000170 



012701 000074' 

012100 

004737 001254' 

103774 

010037 000062' 

072027 000003 

062700 000300 

010037 000064' 

013700 000062' 

072027 000007 

062700 174000 

010037 OOOOOOG 



1*: 



Point to table with video ID's 

Get next possible video device ID 

See if u»e can find this ID 

Loop if not 

Save video option slot number 

Convert slot # to interrupt address 

; Save address of video int vector 

» Get video slot # 

; CSR addresses are 200 apart per slot 

;Add address of CSR for slot O 

; Set CSR address for video 

Store pointers to the routines that get CSR and Vector addresses 
for PRO devices. 



MOV 


#VIDTBL, Rl 


MOV 


<R1)+, RO 


CALL 


GETSLT 


BCS 


1* 


MOV 


RO, VIDSLT 


ASH 


#3/ RO 


ADD 


#300, RO 


MOV 


RO, VIDVEC 


MOV 


VIDSLT, RO 


ASH 


#7, RO 


ADD 


#174000, RO 


MOV 


RO, VIDCSR 



000174 
000202 



000210 
000214 
000220 



012737 001126' OOOOOOG 
012737 001130' OOOOOOG 



113700 177560 

153700 177564 

001405 

105237 OOOOOOG " 



MOV #GPVVEC, RPRVEC 
MOV #GPVCSR, RPRCSR 



; Routine to get PRO vector addresses 
; Routine to get PRO CSR addresses 



Determine if a terminal is connected to the printer port. 



MOVE 


S#PP*RCS, RO 


BISB 


S#PP*TCS, RO 


BEG 


4* 


INCB 


PPTERM 



> Get receiver control register 
; Combine flags from transmitter 
iBr if terminal not connected 
; Remember terminal on printer port 



A terminal is connected to the printer port. 

Enable BREAK key on diagnostic terminal to enter ODT 



000226 
000232 
000234 
000242 
000244 
000252 



000260 
000260 



005727 OOOOOOG TST 

001004 BME 

042737 000200 173700 4*: DIC 
000406 BR 

052737 000200 173700 2$: BIS 

012737 000067 173406 MOV 



#PROBRK 

2* 

#SS*BRK, £#PSSREG 

5* 

#SS$BRK, @#PSSREG 

#PP*CMF ! PP*RE, @#PP$CMR 



Is break control wanted? 

Br if yes 

Disable break control 

i Enable break ODT entry 
; Enable printer port 



Perform initialization f-or quad serial line unit 



5*: 



004737 004660 ' 



. IF 
CALL 
. ENDC 



NE, QPASM 

QPINIT 

; NE, QPASM 



; Do if quad line support wanted 
; Init quad line unit 



Finished 



I 
< 
i 
i 
i 
i 
I 
I 
t 

€ 

4 

i 

€ 

< 
{ 

i 

< 
i 
i 



TSXPRO - 
PROINI - 
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58 000264 0:12601 

59 000266 000207 



9*: 



MOV 
RETURN 



<SP)+, Rl 



€ 
€ 



4 
\ 



t 
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i 



. SBTTL INISLT 



Bet up information about option slots 



This routine initializes a table that contains the device ID's of 
devices installed in each of the PRO option slots. 



6 


000270 


010146 


1 


7 

C'l 


000272 


010246 




9 








10 








11 


000274 


00 500.1 




12 


000276 


1 53701 


173050 


13 


000302 


072127 


000011 


14 


000306 


162701 


000200 


15 


000312 






16 


000320 


013746 


ooooooe 


17 


000324 


010.1.37 


OOOOOOG 


IS 


000330 


052737 


0000000 OOOOOOG 


19 


000336 


052737 


ooooooe oooooog 


20 








21 








22 








23 


000344 


012702 


017764G 


24 


000350 


011200 




25 








26 








27 








28 


000352 


012701 


OOOOOOG 


29 


000356 


005742 


1 


30 


000360 


014221 




31 


000362 


077003 




32 


000364 


0.12711 


1 77777 


33 








34 








35 








36 


000370 


012637 


OOOOOOG 


37 


000374 


042737 


OOOOOOG OOOOOOG 


38 


000402 






39 








40 








41 








42 


000410 


012602 




43 


000412 


012601 




44 


000414 


000207 





INISLT: MOV 
MOV 



R 1 , - < SP ) 
R2, -<SP) 



Map KPAR5 to system configuration table 



CL R 


Rl 


B.TSB 


©#173050.- Rl 


ASH 


#9. , Rl 


SUB 


#200, Rl 


DISABL 




MOV 


@#KPAR5> -<3P) 


MOV 


Rl* @#KPAR5 


BIS 


#MMENBL> @#SROMMR 


BIS 


#EMMAP, @#SR3MMR 



Get byte value without sign extension 
Get 32Kb top of memory block # 
Convert to 64 byte block number 
Get # of last 8Kb block of memory 
; ## Disable interrupts *# 
i Save current par 5 mapping 
; Map par5 to configuration table 
i Turn on memory management 
> Enable 22 bit addressing 



Get number of option slots 



1*: 



MOV #VPAR5+17764, R2 ;;; Point to cell with # option slots 
MOV <R2),R0 i i > Get # of option slots 

Set up table in TSX that has device ID number of each option slot 

; Point to table that will store option ID's 

;Skip word with option status value 

i Store option ID code 

; Loop to get all option slot device ID's 

; Store -1 at end of table 



MOV 


#PROSLT, Rl 


TST 


-<R2> 


MOV 


-<R2>, <R1H 


SOB 


RO, 1* 


MOV 


#-1, (Rl) 



Restore KPAR5 mapping 



MOV 
BIC 
ENABL 



(SP)+, @#KPAR5 
#MMENBL» e#SROMMR 



;; Restore par 5 mapping 
i i Turn off memory mapping 
#* Enable interrupts *# 



F i ? i i b h e d 



MOV 
MOV 
RETURN 



<SP)+, R2 
<SP)+» Rl 



( 






TSXPRO - 


c 


PRONOP - 




1 




•i 


< 


3 




4 


( 


5 
6 




7 


< 


S 

9 




10 


( 


11 
IP 




13 




14 


( 


15 



- TSX-Plus PROxxx Routi MACRO V05. 04 

-• Disable PRO interrupts 



000420 
000424 
000430 
000434 
000440 
000444 
000450 
000454 
000456 

16 

17 

18 

19 

20 

21 

22 

23 

24 000466 



000462 
000464 



010146 
012700 
0.10037 
010037 
010037 
0.1.0037 
010037 
013701 
010011 
010061 



012601 
000207 
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SBTTL PRONOP — Disable PRO interrupts 



PRONOP is called during system startup to direct 
an HI 1 instruction so then will not enter RT-11. 



PRO interrupts to 



PRONOP: 



000466 
000060 
000200 
000064 
000204 
000230 
000064 

000004 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



F i n i shed 



MOV 
RETURN 



R 1 , - ( S'P > 
#DORTI, RO 
RO, @#60 
RO, @#200 
RO, @#64 
RO, @#204 
RO, @#230 
VIDVECRi 
RO, CRD 
RO, 4<R1) 



<SP>+, Ri 



Get address of RTI instruction 
Catch keyboard input interrupt 
380 keyboard input interrupt 
End-of-transf er video interrupt 
Keyboard output interrupt 
380 clock interrupt 
Point to video interrupt vectors 
End-of -frame video interrupt 
end-of-transf er video interrupt 



f 
f 

I 
I 
< 



■> RTI instruction used to render interrupts harmless 

DORTI: RTI ; Return from interrupt immediately 



{ 

I c 

i < 

1 ( 

I 

I c 

* i 

i 
i 
( 
< 

c 

< 

< 

, < 

• i 

\ i 

i 
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3 
4 

5 000470 

6 000472 

7 000474 
S 000476 
9 000502 

1 
11 
12 

13 000506 

14 000512 

15 000520 
16 

17 
18 

19 000526 

20 000532 

21 000536 

22 000540 

23 000542 

24 000546 

25 000550 

26 000552 

27 000554 

28 000556 

29 000560 
30 

31 
32 

33 000562 

34 000566 

35 000572 

36 000576 

37 000602 

38 000606 

39 000612 

40 000616 

41 000622 

42 000626 

43 000630 
44 

45 
46 
47 

48 
49 
50 
51 

52 000632 

53 000636 

54 000642 
55 

56 



010146 
010246 
010346 
013746 
013746 



012703 
1 6337 
1 3737 



012701 
012702 
J 1 i 00 
00 1 404 
062700 
010012 
000402 
01 1211 
001402 
022122 
000766 



013701 
162701 
072127 
063701 
010137 
013700 
162700 
012701 
013702 
012122 
077002 



013701 
012703 
004777 



SBTTL PR OH AIM 



Initialize the PI handler 



PROHAN is called to initialize the PI handler. 



0000000 
0000000 



0000000 

0000000 000052' 
000052' OOOOOOG 



PROHAN: MOV 

MOV 
MOV 
MOV 
MOV 



R 1 , - ( 8P ) 
R2, - < SP ) 
R3, -<8P) 
@#KPAR5, -<SP) 
<2#KPAR6, -(SP) 



; Save current kernel PAR5 mapping 
i Save current kernel PAR6 mapping 



Set up information about where the PI handler is in memory. 



MOV 
MOV 
MOV 



#PISRT, R3 > Point to shared run-time descriptor for PI 
RT$BAS<R3>> P1BASE; This is base 64-byte block # of run-time 
PIBASE, @#KPAR5 ; Map to base of PI handler through PAR 5 



0010000 
000000 ' 



0000000 



000000 ' 

OOOOOOG 

177772 

000052 ' 

0000000 

000002 ' 

OOOOOOG 

OOOOOOG 

OOOOOOG 



000052 ' 
OOOOOOG 
OOOOOOG 



Transfer information between TSXPRO and the PI handler. 



5*: 



6*: 
7$: 



MOV 

MOV 

MOV 

BEQ 

ADD 

MOV 

BR 

MOV 

BEQ 

CMP 

BR 



#VPAR5+1000, Rl > Point to HOKVEC vector in PI handler 



#PROVEC> R2 

<R1>, RO 

6* 

#VPAR5, RO 

RO, (R2) 

7$ 

<R2)» <R1> 

8* 

(Rl)+, <R2) i- 

5* 



; Point to TSXPRO vector 

; Get address of a cell in PI handler 

j Br if PI wants an address 

j Bias the address to be in PAR 5 region 

; Store address pointer in TSXPRO cell 

Pass an address to PI handler 
Br if just hit end of lists 
Increment both list pointers 
Continue processing lists 



Move the PI initialization overlau into the TSINIT work buffer. 



8$: 



4$: 



MOV 
SUB 
ASH 
ADD 
MOV 
MOV 
SUB 
MOV 
MOV 
MOV 
SOB 



PIINAD, Rl 
#VPAR5, Rl 
#-6, Rl 
PIBASE, Rl 
R 1 , @#KPAR6 
PIINWD, RO 
#VPAR5, RO 
#VPAR6, Rl 
PROBUF, R2 
<R1)+, (R2H- 
RO, 4* 



Get address of init overlay 

Subtract bias we added 

Convert to 64-byte block # 

Get mapping base for init overlay 

Map to overlay through PAR 6 

Get # words in init overlay 

Subtract bias we added 

Get virtual address of init overlay 

Get address of TSINIT work buffer 

Move init code to work buffer 



Now execute the PI initialization code that we have moved to 

the TSINIT work buffer. 

Note: PARS is now mapped to the resident portion of the PI handler. 

On entry, 

R3 •- Virtual address of base of PI handler. 

Rl ~~ 64-byte block number of base of PI handler. 

Get 64-byte block # of PI base 
Get virtual address of PI base 
Call PI initialization code 

Wow pet some actual addresses from PI handler 



MOV 


PIBASE, Rl 


MOV 


#VPAR5, R3 


vnLL 


©PROBUF 
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58 
59 
60 
6:1. 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 

ai 

02 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 



000646 017737 177144 000016' 



MOV 



®*VDCSR, *VDCSR 



000654 
000660 
000664 
000670 
000672 
000676 
000700 
nnoTOA 



000712 
000720 
000726 
000732 
000736 
000740 
000744 
000746 
000754 



000762 
000766 
000770 
000774 
000776 
001002 



001010 
001014 
001020 
001022 
001024 
001026 



012700 
012701 
012721 
010021 
012721 
010021 
1 2737 
O 1 0037 



013737 
013737 
013701 
012721 
010021 
012721 
010021 
013737 
013737 



013703 
001410 
012723 
010013 
013703 
1 52763 



012637 
012637 
012603 
012602 
012601 
000207 



Conn e? tt to interrupt vectors 



000340 
000060 
002114' 

001 560' 

002214' 000204 
000206 



000060 000200 
000062 000202 
000064 ' 
002052 ' 

001560' 

000100 000230 
000102 000232 



000070 

005354 

000066 
000100 



0000000 
0000000 



000004 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#340, RO 
#60, Rl 

#PIKIIR, (Rl)+ 
RO, <R1) + 
#PIVTIR, <R1> + 
RO, (Rl) + 
#PIKOIR, ©#204 
RO, ©#206 



Get video CSR address 



i Get priority 7 code 

; Get address of start of vector area 

> Set keyboard input interrupt routine 

; Set interrupt service priority to 7 

; Set end of transfer video interrupt 

■> Set priority ~ 7 

; Set keyboard output interrupt routine 

.; Set priority 



Connect to 380 interrupt vectors 



MOV ©#60, ©#200 

MOV ©#62, ©#202 

MOV VIDVECR1 

MOV #PIVFIR, <R1) + 

MOV RO, <R1> + 

MOV #PIVTIR, <Ri)+ 

MOV RO, <R1)+ 

MOV ©#100, ©#230 

MOV ©#102, ©#232 



; 380 keyboard input interrupt 

; Point to video interrupt vector A 

> Set end-of~frame video interrupt 

> Set priority 

;Set end-of -transf er video interrupt 

> Set priority 

; 380 clock interrupt 



Connect to interrupt for quad serial line unit 



10*: 



. IF 


NE, QPASM 


MOV 


QPVEC, R3 


22 EQ 


10* 


MOV 


#QPCINT, <R3)+ 


MOV 


RO, <R8) 


MOV 


QPCSR,R3 


BISB 


#QP*IEN, OP RMS 


. ENDC 


; NE, QPASM 


Finished 




MOV 


<SP>+, ©#KPAR6 


MOV 


<SP>+, ©#KPAR5 


MOV 


<SP>+, R3 


MOV 


<SP>+, R2 


MOV 


<SP>+, Rl 


RETURN 





; Assemble if quad line unit support wanted 
Get address of interrupt vector 
Br if quad serial unit not installed 
Set PC for interrupt 
Set PS for interrupt 
Get address of CSR register 



; Restore kernel mapping 



TSXPRO - 
PROLIN - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

].P 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2S 

29 

30 

3.1 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



— TSX-Plus PRQxxx Routi MACRO V05. 04 Friday 18~Dec~87 16:08 Page 14 
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. SBTTL PROLIN 



Bee if line is a special PRO terminal 



001030 



001030 005761 0000000 

001034 001403 

001036 004737 005136' 

001042 000427 



PROLIN is called once for each DL11 type line defined in the system. 
It determines if the line is a printer port or communications port 
line and if so performs the initialization for the line. 

1 n p u t s : 
R.I ~~ Line index number. 

Outputs: 

C flag cleared ==> This is a printer port or comm port line. 

C -f lag set ==> This is not a printer port or comm port line. 

ROLIN: 

See if this is a line connected to the quad serial line unit 

; Assemble for quad line support 

> Is this line on a mux? 

; Br if not 

j Initialize line on quad unit 



. IF 


NE> QPASM 


TST 


LMXNUM<RJ ) 


BEQ 


3* 


CALL 


QPLINE 


BR 


9* 


. ENDC 


> HE, QPASM 



See if this is the Professional video console 



001044 026127 000000G 000060 3*: 

001052 001003 

001054 004737 001316 ' 

001060 000420 



CMP 


INVEC(Rl), #60 


BNE 


2* 


CALL 


PIINIT 


BR 


9* 



; Is this the console line? 
; Br if not console line 
; Initialize PI line 



001062 016100 0000000 



001066 020027 173400 

001072 001003 

001074 004737 002324' 

001100 000410 



001102 020027 173300 

001106 001003 

001110 004737 003146 

001114 000402 



0011.16 000261 
001120 00040.1. 



001122 000241 



Get address of receiver status register for the line 

2$: MOV RSR(R1),R0 ; Get address of receiver status register 

See if this is the printer port 

i Printer port?" 

; Br if not 

.Initialize the printer port 



CMP 


RO, #PP*DBR 


BNE 


1* 


CALL 


PPINIT 


BR 


9* 



See if this is the communications port 



1*: 



CMP 


RO, #CP*DBR 


BNE 


8* 


CALL 


CPINIT 


BR 


9* 



; Communications port'' 

i Br if not 

; Initialize the comm port 



This line is not the printer port or the comm port 

8*: SEC ■, Signal failure on return 

BR 10$ 

This line was the printer port or the comm port 

9*: CLC ; Signal success on return 



t 

i 



i 
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58 i 

59 ; Finished 

60 ; 

61 001124 00020/ lO*: RETURN 
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3 

4 


001126 


000402 




5 


001130 


000420 




6 
7 
8 


001132 


000436 










9 








10 








11 








1? 








13 








14 








15 








16 








17 








18 








19 








20 


001134 


010046 




21 


001136 


016600 


000004 


22 


001142 


004737 


001254' 


23 


001146 


103407 




24 


001150 


072027 


000003 


25 


001154 


062700 


000300 


26 


001160 


000241 




27 


001162 


010066 


000004 


28 


001166 


012600 




29 


001170 


000207 





Branch vector to entry points of PRO CSR/Vector/Slot routines 

;Get vector address 
;Get CSR address 
; Get Slot value 



GPVVEC : 


BR 


CPRVEC 


GPVCSR: 


BR 


GPRCSR 


GPVSLT: 


BR 


GPRSLT 



SBTTL GPRVEC 



Get address of vector for PRO device 



This routine is called to determine the address of the interrupt vector 
for a PRO device based on the device ID. 

I n p u t s : 
Device ID is pushed on stack before calling GPRVEC. 

Outputs: 
C-flag cleared ==> Found device in tables; C-flag set »=> No such device. 
Top of stack contains vector for device. 



j Get the device ID code 

i Determine which option slot has the dev 

i Br if device not recognized 

i Vectors are 8 bytes apart per slot 

; Vectors for slot O start at 300 

■> Signal success on return 

; Place vector address on stack 



GPRVEC: 


MOV 


RO, -(SP) 




MOV 


4<SP), RO 




CALL 


GETSLT 




BCS 


9* 




ASH 


#3, RO 




ADD 


#300, RO 




CLC 






MOV 


RO, 4(SP) 


9$: 


MOV 
RETURN 


<5P)+, RO 



c 

i 

\ i 

I < 

1 i 

i 
i 
i 
i 
i 
i 
i 
i 

4 

i 

I i 

i 
I < 

f i 

c 



TSXPRO -■• 
GPRCSR -- 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
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12 

13 
14 
15 
16 
17 
18 
19 
20 
21 



001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



172 

174 
200 
204 
206 
212 
216 
220 
224 
226 



. SBTTL GPRCSR — Get address of CSR for PRO device 

This routine is called to determine the address of the CSR 
for a PRO device based on the device ID. 



Inputs: 
Device 



ID is pushed on stack before calling GPRCSR. 



Outputs: 
C-flag cleared ==> Found device in tables; C-flag 
Top of stack contains address of CSR for device. 



set ==> No such device. 



010046 
016600 
004737 
103407 
072027 
062700 
000241 
010066 
1 2600 
000207 



000004 
001254' 

000007 
174000 

000004 



GPRCSR : 


MOV 


RO, -<SP) 




MOV 


4<SP),R0 




CALL 


GETSLT 




BCS 


9* 




ASH 


#7. , RO 




ADD 


#174000, RO 




CLC 






MOV 


RO, 4<SP> 


9*: 


MOV 
RETURN 


<SP)+, RO 



> Get the device ID code 

; Determine which option slot has the dev 

; Br if device not recognized 

i CSR address are 200 apart per slot 

; CSR for slot starts at 174000 

;Signal success on return 

; Place CSR address on stack 



« 

< 
I 
I 
« 
I 
< 
< 
i 
t 

€ 

< 

< 

t 
i 
i 



\ 



TSXPRO - 
GPRSLT - 



TSX 
Get 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

.11 

12 

13 

14 

15 

16 

17 

IS 

19 



. SBTTL GPRSLT — Get Slot number for PRO device 



001230 
001232 
001236 
001242 
001244 
001250 
001252 



010046 
016600 
004737 
103402 
010066 
012600 
000207 



000004 
001254 

000004 



This routine is called to determine the slot number 
for a PRO device based on the device ID. 

I n p u t s- : 
Device ID is pushed on stack before calling GPRSLT. 

Outputs: 
C-flag cleared ==> Found device in tables; C-flag set ==> No such device. 
Top of stack contains slot number for device. 



GPRSLT: MOV 
MOV 
CALL 
BCS 
MOV 

9$: MOV 

RETURN 



RO, -<SP> 

4 ( SP ) > RO 

GETSLT 

9* 

RO, 4<SP> 

<SP>+, RO 



; Get the device ID code 

; Determine which option slot has the dev 

i Br if device not recognized 

; Put slot number back onto stack 



TSXPRO - 
GETSLT - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 
25 
26 
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t 

r 



00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



1254 
1256 
1260 
1264 
1270 
1272 
1274 
1276 
1302 
1304 
1306 
1310 
1312 
1314 



010146 
010001 
1 2700 
02 1 027 
001407 
020120 
001373 
162700 
006200 
000241 
000401 
000261 
012601 
000207 



SBTTL GETSLT 



Determine which option slot has device controller 



This routine is called to determine which PRO option slot contains the 
controller for a specified device. 

I n p u t s : 
RO = Device ID code. 

Outputs: 
C-flag cleared ==> Found the device; C~flag set ==> No such device 
RO -- Slot number. 



0000000 
1 77777 



0000020 



GETSLT: 


MOV 


R 1 > - < SP ) 




MOV 


RO, Rl 




MOV 


#PROSLT, RO 


1*: 


CMP 


(RO), #-1 




BEG 


2* 




CMP 


Rl, (R0) + 




13 ME 


1* 




SUB 


#PR0SLT+2, RO 




ASR 


RO 




CLC 






BR 


9* 


2*: 


SEC 




9$: 


MOV 
RETURN 


<SP)+, Rl 



i Get device ID code 

;Point to table with device ID codes 

; Reached end of table entries? 

; Br if yes 

; Search for device ID in table 

; Loop if not found 

; Compute table offset of entry 

> Convert to word index 

; Signal success on return 

; Signal failure on return 
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1 . SBTTL *** Console Control Routines *#* 

2 .SBTTL PIINIT ■■ Initialize the console 



3 

4 

5 

6 

7 

S 

9 
10 001316 
11 
12 
13 

14 001316 010137 000044' 

15 001322 012761 0000000 OOOOOOG 
16 

17 

.1.8 

19 001330 012737 001354' OOOOOOC 

20 

21 

22 

23 001336 005761 OOOOOOG 

24 001342 001003 

25 001344 012761 OOOOOOG OOOOOOG 



27 
28 



PIINIT is called during system initialization to initialize the 

combo] e. 

I n p u t s : 
RJ. = Line index number. 

'UNIT: 

Remember index number oP line connected to console 

MOV Rl.PILINE J Save line index # of console line 

MOV #CDX*PI* LCDTYP(Rl); Set type of communications controller 

Set addresses of communication port device-dependent routines 

MOV #PISTRT, CDSTRT+CDX*PI ; Set address of start routine 

Default terminal type to VT.100 



29 001352 000207 



1*: 



TST 
BNE 
MOV 

F i n i s h e d 

RETURN 



ITRMTP<R1) > Is a terminal type specified? 

1* j Br if yes 

#VT100, ITRMTP<Ri)i Set default terminal type to VT100 



( 

c 
c 

< 
( 
( 
< 

< 
i 

i 
i 
i 

i 

i 

4 

I 
< 

i 
i 



TSXPRO 
PISTRT 



— TSX-F 1 u s PRDx xx Rout i 

— Start output to video 



MACRO V05. 04 Friday lS-Dec-S7 16:08 Page 20 



screen 



. SBTTL PISTRT — Start output to video screen 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

1 6 

17 

IS 

19 

20 

2.1. 



001354 



PISTRT is called after a character is placed in the output ring 
buffer to initiate transmission to the video screen 

Inputs: 
Rl = Line index number of line being started. 

PISTRT: 

See if we have already started transmitter during this clock period 



00 

00 



00 
00 



1354 

1360 



1362 
1366 



005237 
003005 



004737 
103402 



000056 



INC 

BCT 



PI5CNT 
9* 



; Have we already started during elk interval? 

> Br if yes 



Do not allow output to the console to consume the entire system. 



002000 ' 



CALL 
DCS 



PIQUIT 
9* 



23 001370 004737 001420' 

24 

25 

26 

27 001374 000207 

28 

29 

30 

31 

32 

33 

34 001376 



Start output 

CALL PI GO 

Finished 
9*: RETURN 

. SBTTL PIDRIV 



; Is it time to suspend output? 
; Br if yes 



; Start transmitter 



Clock driven PI transmitter routine 



PIDRIV is called periodically from the clock interrupt routine 
to force output to the PI console. 



35 

36 

37 

38 00 

39 

40 

41 

42 

43 

44 

45 

46 00 

47 

48 

49 

50 00 



PIDRIV: 

; Reset output character suspend count 

1376 012737 000017 000072' MOV #MAXPOC, PIMOC ; Reset output character count 

Start output to PI 

CALL PIGO ; Start the transmitter 

Reset flag saying if transmitter has been started during clock interval 

1410 012737 177777 000056' MOV #-1, PISCNT ; Reset counter 

i 
i Finished 

1 4 :l 6 000207 RETURN 



001404 004737 001420 



t 
i 
i 

< 

i 

< 

i 

i 

I 

( 

t 

i 

€ 

€ 

i 
i 
i 
< 

4 
( 
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SBTTL PI GO 



— Start PI transmitter 



3 
4 
5 
6 



00 



7 00 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 00 



00 

00 



1420 
1424 



1432 
1436 



013746 
013737 



005777 
001013 



18 00 

19 00 

20 00 

21 00 

22 00 

23 00 
24 

25 



1440 
1442 
1 446 
1454 
1460 
1462 
1464 



010446 
013704 

004774 
103375 
012604 
000427 



27 001466 

28 

29 

30 

31 00 

32 00 

33 00 

34 00 

35 00 

36 00 

37 00 

38 00 

39 00 

40 00 
41 

42 
43 

44 001544 

45 001550 

46 001556 



1474 
1500 
1502 
1506 
1512 
1520 
1522 
1526 
1530 
1536 



005737 
001021 
005237 
010677 
032777 
001011 
005777 
001003 
052777 
012777 



012637 
000207 



OOOOOOG 
000052 ' 



176370 



OOOOOOG 



PIGO is called to enable a transfer-done interrupt which will start 
transmission to the PI console. 

PIGO: MOV @#KPAR5, -<SP> ; Save current PARS mapping 
MOV PIBASE, @#KPAR5 j Set up PARS to map to PI 



000044 ' 
OOOOOOG 



000054 ' 

000054 ' 

176312 

040000 

176274 

040000 
100000 



OOOOOOG 



1 76276 



1 76260 
176254 



See if output to the PI handler has been suspended 



TST 



SPIGOFL 
1* 



; Has PI output been suspended? 
.; Br if not- 



Output to the PI handler has been suspended. 

Consume all pending output characters and then return. 



4$: 



MOV 


R4, -<SP> 


MOV 


PILINE, R4 


DISABL 




CALL 


@L0UTIR<R4) 


BCC 


4* 


MOV 


<SP>+, R4 


BR 


9* 



Get line index number 

#* Disable interrupts ## 

Get next char for PI 

Loop till all characters consumed 



Output to PI handler is not suspended 
1*: DISABL ; ; ; ** Disable interrupts ** 

See if we have already triggered a PI interrupt 



2*: 



TST 
BNE 
INC 
MOV 
BIT 
BNE 
TST 
BNE 
BIS 
MOV 

Finished 



9$: 



MOV 

ENABL 

RETURN 



PIOIFL 

9* 

PIOIFL 

SP, ©VDFLAG 

#VP*DOI> <**VDC5R 

9* 

©PRIOO 

2* 

#VP*DOI, @*VDCSR 

#100000, ©REENAB 



<SP)+, @#KPAR5 



Have we already triggered an output int? 

Br if output interrupt active now 

Set flag saying output int active 

Tell VDCURS that buffer is not empty 

Is end-of-transf er interrupt enabled? 

Br if yes 

Has video said to leave it alone? 

Br if yes 

Generate end-of-transf er interrupt 

Tell video to turn on interrupts when ready 



i ; ; Restore PARS mapping 

; ; ; ## Enable interrupts ** 



I 

( 



\ 



t 
i 



TSXPRO — 
PIVTIR — 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
1? 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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interrupt 



001560 



00 
00 
00 



1 560 
1564 
1566 



004537 
000140 
010046 



OOOOOOG 



001570 005237 000054' 



00 
00 
00 



1574 
1602 
1610 



013737 000052' 
012777 100000 
042777 040000 



OOOOOOG 
176210 
1 76200 



00 
00 
00 



00 
00 

00 
00 



00 
00 
00 



1616 
1622 
1626 



1630 
1634 
1636 
1640 



1642 
1646 
1650 



013704 000044' 
004737 002000 ' 
103431 



004774 
.1.03423 
010005 
012600 



004537 

OOOOOOG 

010046 



OOOOOOG 



OOOOOOG 



00165, 



013737 000052' OOOOOOG 



00 
00 
00 
00 
00 



1660 
1662 
1670 
1676 
1 702 



010500 
052764 
042764 
004777 
000412 



OOOOOOG 
OOOOOOG 
176102 



OOOOOOG 
OOOOOOG 



. S13TTL PIVTIR — Video end of transfer interrupt 



JSR 


R5, INTEN 


. WORD 


140 


MOV 


RO, -<SP> 



PIVTIR is jumped to from the video end-of-transf er interrupt. 

PIVTIR: 

Do . INTEN to drop priority to 4 

; Do standard interrupt entry 
; Priority = 4 
; Save RO 

Set flag saying output interrupt is in progress 

INC PIOIFL ; Doing output interrupt processing 

Disable transfer done interrupt 

MOV PIBASE, @#KPAR5 ; Map kernel PAR 5 to the PI handler 
MOV #100000, ©REENAB ; Set flag to reenable transfer-done int 
BIC #VP$DOI, @$VDCSR ; Disable transfer-done interrupt 

Limit the number of consecutive characters sent to the console 
to prevent the PI output processing (which is compute bound) from 
consuming 100% of the machine. 



MOV 

CALL 
BCS 



PILINE, R4 

PIQUIT 

2* 



; Get line index number of console line 
i Time to suspend output? 
; Br if yes 



Get the next character to transmit. 



; Get next char for line 
; Br if no character available 
; Get char to transmit to R5 
> Restore RO before »ue fork 



There is another character to transmit. Now fork 



CALL 


@L0UTIR<R4) 


BCS 


1* 


MOV 


RO, R5 


MOV 


<SP)+, RO 



€ 



JSR 
. WORD 
MOV 



R5, FORK 
FP*PIO 
RO, -(SP> 



Map PARS to the PI handler 
MOV P I BASE, 8#KP AR 5 



i Fork to get to priority O 
> Fork priority 
i Save RO 



;Map kernel PAR 5 to the PI handler 



Enter PI handler to transmit the character 

MOV R5, RO > Get char to transmit 

BIS #*XCHAR, LSW3<R4); Set transmitter busy flag 

BIC #*OITIM, LSW5<R4>; Start output interrupt timer 

CALL ©PIXOCH ;Call routine to transmit the character 

BR 9* > Finished 

No character is available for transmission 



TSXPRO - 
PIVTIR - 


— TSX-P 

--- Video 


I us PROxxx Routi 
end of transfer 


MACRO V05. C 
interrupt 


58 
59 
60 
61 
62 
63 
64 
65 
66 
67 


001704 
001712 
001720 
001724 


012737 
042764 
005077 
00507/ 


000017 
0000000 
176100 
176070 


000072' 1*: 
OOOOOOG 2*: 


001730 
001734 
001736 


005037 
012600 
000207 


000054 ' 


* 
> 
i 

9*: 
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MOV 
BIC 
CLR 
CLR 

Fini shed 



#MAXPOC,PIMOC ; Reset output char limit count 
#*XCHAR> LSW3<R4>; Say transmitter is not busy 
©VDFLAG ;Tell VDCURS that buffer is empty 

SREENAB ;Tell video not to turn on interrupts 



CLR 
MOV 
RETURN 



PIOIFL 
(SP)+, RO 



; Say output interrupt not in progress 



TSXPRO - 
PINDCH - 

1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
13 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
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■— Get next output character for console 



001740 010446 

001742 013704 000044" 



001746 004737 002000' 
001752 103410 



001754 

001762 004774 OOOOOOG 

001766 



001774 012604 
001776 000207 



BBTTL PINDCH 



Oet next output character for console 



PINDCH is called from within the VIDEO handler to try to get another 
character to send to the console terminal. 



Outputs: 
C-flag cleared ==> a character is available. 
C -flag set ==> No more characters available. 
RO = Character to send if C-flag is cleared. 



PINDCH: NOV 
MOV 



R4, -<SP) 
PILINE.- R4 



; <5et line index number of console 



Limit the number of consecutive output characters to prevent the 
PI output processing (which is compute bound) from completely 
dominating the system. 



CALL 
BCS 



PIQUIT 
9* 



; Time to suspend output? 
j Br if yes 



Call line-dependent routine to try to get another output character 



1*: 



DISABL 

CALL 

ENABL 



£LQUTIR(R4) 



;i#* Disable interrupts for LOUTIR #* 
> ; Set next character for line 
•*# Enable interrupts «■# 



Finished 



9*: 



NOV 
RETURN 



<SP>+, R4 



€ 
I 
I 
< 
i 
i 

i 

€ 

i 

< 
i 
« 

€ 

< 
< 
4 
4 
4 
i 
< 
i 



4 
\ 
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PIQUIT -■— Check output character limit. 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
IP 

13 002000 
14 
15 
16 

17 002000 
IS 002004 

19 002006 

20 002012 



!1 



002014 
002020 
002022 
002026 
002032 



23 
24 
25 
26 
27 
28 
29 

30 002034 

31 002040 

32 002042 

33 002044 

34 002046 
35 

36 
37 
38 002050 



105737 
0010.13 
005737 
001010 
10 5737 
001412 
013700 
005760 
002405 



OOOOOOG 
OOOOOOG 

ooooooe 

000044 ' 
OOOOOOG 



005337 
003002 
000261 
000401 
000241 



000207 



00007; 
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. SBTTL PIQUIT — Check output character limit 



This routine causes output to the console terminal to be suspended 

after a certain number of characters have been transmitted. 

The output is resumed after a timed interval. 

This is done to prevent the console terminal output processing (which 

is compute bound) from consuming 100% of the machine. 



Outputs: 
C--flag set ==> Suspend output. 
C-flag cleared ~~> Continue output. 



PIQUIT: 

See if there is any other pending system activity 



TSTB 


DOSCHD 


BNE 


2* 


TST 


FRKCQE 


BNE 


2* 


TSTB 


CORUSR 


BEG 


1* 


NOV 


PILINE, RO 


TST 


LXCL<RO) 


BLT 


1* 



Scheduler cycle needed? 

Br if yes 

Fork requests pending? 

Br if yes 

Is there another executing job? 

Br if not 

Get # of job using console terminal 

Is that job cross-connected to CL line? 

Br if not 



There is some pending system activity. 
See if it is time to suspend PI output. 



2*: DEC 


PIMOC 


BGT 


1* 


SEC 




BR 


9* 


1*: CLC 




> Finished 




9*: RETURN 





; Time to suspend output? 

> Br if not 

j Signal to suspend 

i Signal to continue output 



€ 
€ 
< 



TSXPRO 
PIVFIR 



-- TSX-P 
— Video 



lus PROs 
end of 
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frame interrupt 



SBTTL PIVFIR 



Video end of frame interrupt 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 

25 
26 
27 
23 



PIVFIR is jumped to from the interrupt vector whenever a video 
end-of ~f rame interrupt occurs. 



002052 



002052 
002056 
002060 
002062 
002064 
002066 



002070 
002076 



002102 
002104 
002106 
002110 
002112 



PIVFIR: 

■> Do . INTEN to drop priority to 4 



004537 
000140 
1 0046 
010146 
010246 
0.1.0346 



013737 
004777 



012603 
012602 
012601 
012600 
000207 



0000000 



JSR 


R5, INTEN 


. WORD 


140 


MOV 


RO.. -<BP) 


MOV 


R 1 , - < SP > 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 



; Do standard interrupt entry 
; Priority = 4 



Enter overlay to do the actual processing 



000052' OOOOOOG 
175704 



MOV 


PIBASE, @#KPAR5 


CALL 


©PIXEOF 


Finished 




MOV 


<SP>+, R3 


MOV 


<5P)+, R2 


MOV 


<SP)+, Rl 


MOV 


<5P>+, RO 


RETURN 





Map kernel PAR 5 to the PI handler 
Do end of frame processing 



TSXPRO - 
PIKIIR • 

1 

*"% 

&~ 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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Keyboard input interrupt 



002114 



002114 004537 0000000 

002120 000140 

002122 010046 

002124 010146 

002126 010246 

002130 010346 



002132 013737 000052' 0000000 
002140 004777 175644 



. SBTTL PIKIIR — Keyboard input interrupt 

; PIKIIR is vectored to when a keyboard input interrupt occurs. 

> 

PIKIIR: 

; Do . INTEN to drop priority to 4 
> 

> Do standard interrupt entry 

.; Prior ity = 4 



JSR 


R5, INTEN 


. WORD 


140 


MOV 


RO, -(SP) 


MOV 


R 1 .- - ( SP ) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 



Enter system overlay to do the actual processing 



002144 
002146 
002150 
002152 
002154 



012603 
012602 
012601 
012600 
000207 



002156 



002156 
002162 
002166 
002170 

002174 



002200 
002202 
002206 
002212 



013746 
013746 
010446 
013704 
004777 



0.12604 
012637 
1 2637 
000207 



0000000 
OOOOOOG 

000044 ' 
OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV 


PIBASE, S#KPAR5 


CALL 


SPIXICH 


Finished 




MOV 


<SP)+, R3 


MOV 


< SP ) +, R2 


MOV 


( SP ) +, R 1 


MOV 


<SP)+, RO 


RETURN 




. SBTTL 


KBDCHR — Proc 



; Map kernel PAR 5 to the PI handler 
; Process the input character 



Process character received from keyboard 



» KBDCHR is jumped to from the PI handler when a character has been 
; received and converted to ASCII. 



Inputs: 
R5 = Received ascii character. 



KBDCHR: 



Save the PARS and PAR6 mapping for the handler* and then call 
the TTINPT routine to process the received character. 



MOV 
MOV 
MOV 
MOV 
CALL 



@#KPAR5, -(SP) 
e#KPAR6, -(SP) 
R4, -(SP) 
PILINE, R4 
©TTINPT 



Save PARS and PAR6 mapping for PI 



; Get line index # for console line 
/Process received character 



Mow restore PARS and PAR6 mapping and return to PI 



MOV 
MOV 
MOV 
RETURN 



<SP)+, R4 

( SP ) +, @#KPAR6 

<SP)+, @#KPAR5 



> Restore PAR5 and PAR6 
i Return to PI 



TSXPRO 
PIKOIR - 



3 
4 



TSX-Plus PROxxx Routi MACRO V05. 04 
- Output interrupt for keyboard 



7 

a 

9 
10 

n 

13 
13 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 
26 

27 

2B 



002214 



002214 
002220 
002222 



002 



240 



002250 
002252 

002254 
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SBTTL PIKOIR — Output interrupt for keyboard 



PIKOIR is vectored to when we receive an interrupt on completion of 
transmitting a character to the keyboard. 



PIKOIR: 

Do . INTEN to drop priority to 4 



004537 0000000 

000140 

010046 

010146 

010246 

010346 



013737 000052' 0000000 
004777 175546 



012603 
012602 
012601 
012600 
000207 



JSR 


R5, INTEN 


. WORD 


140 


MOV 


RO.- -<SP) 


MOV 


R 1 , - ( SP ) 


MOV 


R2, -<SP> 


MOV 


R3, -(SP) 



; Do standard interrupt entry 
; Prior i ty = 4 



Call overlay routine to do the processing 



MOV 


PIBASE, @ 


CALL 


©PIXIOI 


Finished 




MOV 


(SP)+, R3 


MOV 


< SP ) +, R2 


MOV 


<SP>+, Rl 


MOV 


(SP)+, RO 


RETURN 





> Map kernel PAR 5 to the PI handler 
;Call overlay processing routine 



TSXPRO — TSX-Plus PROxxx Routi 


PI HAN -■- Simui 

i 
2 

3 


ated PI 


hand ler 






4 






5 






6 






7 






a 






9 002256 


000000 




10 002260 


000014 




11 002262 


000000 




12 002264 


000000 




13 002266 


000000 




14 002270 


000402 




15 






16 






17 






IS 002272 


000207 




19 002274 


000002 




20 






21 






22 






23 002276 






24 






25 






26 






27 002276 


013737 


000052 ' 


28 






29 






30 






31 002304 


013700 


002266 ' 


32 002310 


004777 


175500 


33 






34 






35 






36 002314 


012704 


002266 ' 


37 002320 


000137 


OOOOOOG 
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. SBTTL PI HAN 



Simulated PI handler 



The following routine is a simulated handler for the PI device. 
It is used to allow SETUP to perform . SPFUN operations on 

the PI device. 



Simulated handler header 



PI HAN: 



PILQE: 
PICQE: 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
BR 





PIINT-. 







PIENTR 



Device vector 

Offset to interrupt service entry point 

Interrupt priority 

Last queue element 

Current queue element 

Enter here from system I/O queueing 



Simulated interrupt point and abort entry point 



RETURN 
PI INT: RTI 



/Abort entry point 

iFake interrupt entry point 



OOOOOOG 



Process an I/O queue request directed to the PI device 
PIENTR: 

Map PAR 5 to the real PI handler 

MOV PIBASE, @#KPAR5 ; Map PAR 5 to PI handler 
Call real PI handler to process the .SPFUN 



MOV 
CALL 



PICQE, RO 
©PIXIOQ 



i Pass address of I/O queue element in RO 
» Enter handler to process the .SPFUN 



Finished processing the I/O queue request 



MOV 
JMP 



#PICQE, R4 
IOFIN 



iSet up R4 for IOFIN 

i I/O operation is completed 



i 

i 

< 

i 
I 

i 



M 
\ 
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*•*-# Printer Port Control Routines #*-*• 



« 

i 

i 
€ 

i 
t 

i 

< 

i 

I < 
I 

i * 
I < 

i 



i 

2 
3 



5 

6 

7 

3 

9 
10 002324 010246 
11 
12 
13 

14 002326 010137 000046' 

15 002332 012761 OOOOOOQ OOOOOOG 
16 

17 
18 
19 

20 002340 012737 002620' OOOOOOC 

21 002346 012737 002772' OOOOOOC 

22 002354 012737 002776' OOOOOOC 

23 002362 012737 003024' OOOOOOC 
24 

25 
26 

27 002370 012737 002654' 000220 

28 002376 012737 000340 000222 

29 002404 012737 002516' 000224 

30 002412 012737 000340 000226 
31 

32 
33 

34 002420 005737 

35 002424 112737 
36 

37 
38 

39 002432 116100 0000010 

40 002436 001007 

41 002440 012700 OOOOOOG 

42 002444 105737 OOOOOOG 

43 002450 001002 

44 002452 012700 OOOOOOG 

45 002456 004737 003024' 
46 

47 

48 

49 002462 012737 000067 173406 

50 

51 



SBTTL ##* Printer Port Control Routines ##* 
SBTTL PPINIT — Initialize the printer port 



PPINIT is called during system initialization to initialize the 
printer port. 

Inputs: 
Rl - Line index number. 

PPINIT: MOV R2, -<SP> 

Remember the line index number of the line connected to the printer port 

MOV Ri,PPLINE i Remember which line connected to printer port 
MOV #CDX*PP,LCDTYP(R1) ; Set type of communications controller 

Set addresses of printer port routines in vector of device-dependent 
routines. 

MOV #PPSTRT, CDSTRT+CDX*PP ; Set address of start routine 

MOV #PPGDSS, CDGD5S+CDX$PP ; Address of rtn to get data set status 

MOV #PPSBRK, CBSBRK+CDX*PP ; Address of rtn to control break 

MOV #PPSSPD> CDSSPD+CDX*PP ; Address of rtn to set speed 

Connect the printer port interrupts to the service routine 



MOV 
MOV 
MOV 
MOV 



#PPRINT> ®#PP$RCV; Connect receiver interrupt 
#340, @#PP*RCV+2 ; Set prio = 7 on interrupt entry 
#PPTINT, @#PP*TRV; Connect transmitter interrupt 
#340, @#PP*TRV+2 ; Set prio 7 



173406 
000102 



173404 



53 002470 112737 000035 

54 

55 

56 

57 



17320; 



Set up mode register 1 

3$: 1ST @#PP$CMR ; Access command reg to reset mode reg ptr 
MOVB #PP*M1F, @#PP*MDR; Initialize values in mode register 1 

Set speed in mode register 2 

MOVB LMXPRM+KR1), RO ; Get line parameter values 

BNE 1* > Br if parameter values were specified 

MOV #S9600, RO ; Default to 9600 baud 

TSTB PPTERM > Is a terminal connected to printer port? 

BNE 1* > Br if yes 

MOV #S4S00, RO i Default to 4800 baud 

1$: CALL PPSSPD ; Set the speed in mode register 2 

Initialize the command register 

MOV #PP*CMF!PP*RE, £#PP*CMR ; Initialize command register 
Enable receiver interrupts 

MOVB #IM*CRM!IM*PPR,@#ICOCSR ; Clear IRR&IMR flags for receiver 

Disable transmitter <set mask bit in IMR), but raise a transmitter 
request so we will get an interrupt by clearing the mask flag later. 



\ 



< 
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PPIN.1T -- Initialize the printer port 



58 002476 112737 000076 173202 MOVB #IM*SM! XM«PPT> e#ICOCSR J Set interrupt mask flag in IMR 

59 002504 112737 000136 173202 MOVB #IM*SR ! IM*PPT, @#ICOCSR ; Raise interrupt request flag in IRR 
i 60 } 

61 ; Finished 

62 i 

i 63 002512 012602 9*: MOV <SP)+. R2 

64 002514 000207 RETURN 



< 
< 
i 
i 
t 

i 
t 

< 
i 
i 
i 
i 
i 
i 
i 
i 



i 

€ 

f 

1 
t 

< 

< 
< 
< 
I 
f 

< 

4 

t 
i 
i 
< 
< 



TSXPRG — TSX-Plus PROxxx Routi 
PPTINT — Transmitter interrupt 



1 
2 

3 
4 
5 
6 
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. SBTTL PPTINT — Transmitter interrupt 
Interrupt service routine for printer port transmitter interrupts. 



002516 
002520 
7 002522 
S 002526 
9 

10 

11 

12 002532 

13 

14 

15 

16 002540 

17 

18 

19 

20 002544 

21 



24 002552 

25 002556 
26 

27 
28 

29 002560 

30 002566 

31 002574 
32 

33 

34 

35 002600 

36 

37 

38 

39 002606 

40 002612 

41 002614 

42 002616 



010046 
010446 
013746 
005037 



0000000 
OOOOOOG 



PPTINT: MOV 
NOV 
NOV 
CLR 



112737 000076 173202 



013704 000046 



042764 OOOOOOG OOOOOOG 



004774 
.103413 



052764 
042764 
1 1 0037 



OOOOOOG 



OOOOOOG 
OOOOOOG 
173400 



OOOOOOG 
OOOOOOG 



112737 000056 173202 



RO, -<SP> 
R4, -<SP> 
INTPRI, -<SP) 
INTPRI 



iSave current interrupt priority 
; Say running priority - 7 



Disable interrupts from transmitter 

NOVS #IN*SN! INSPPT, £#ICOCSR i Set interrupt mask for transmitter 
Get number of line connected to printer port 

NOV PPLINE, R4 ; Get index # of line connected to printer 
Say line is no longer transmitting a character 

BIC #*XCHAR, LSW3<R4)i Say line no longer transmitting a character 
Get next character to transmit 



CALL @L0UTIR(R4> 
BCS 1* 



; Get next character to transmit 
; Br if no character available 



012637 
012604 
012600 
000002 



OOOOOOG 



1$: 



Transmit the character contained in RO 

BIS #*XCHAR,LSW3<R4>; Set transmitter busy flag 

BIC #$OITIN, LSW5<R4); Start timer to catch lost interrupts 

NOVB RO, @#PP*DBR ; Transmit the character 

Enable transmitter interrupts 

NOVB #IN*CN!IN*PPT, @#ICOCSR > Clear interrupt mask flag 

Finished. Return from interrupt 

i Restore interrupt priority 



NOV 
NOV 
NOV 
RTI 



(SP)+, INTPRI 
<SP)+, R4 
<SP)+, RO 
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PPSTRT — Start output to printer port 
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SBTTL PPSTRT — Start output to printer port 



2 
3 










Subroutine ca 


4 










Enable transm 


5 
6 
7 










R 1 " Physical 


002620 


032761 


0000000 


OOOOOOG 1 


=>PSTRT: BIT 


a 


002626 


001011 






BNE 


9 


002630 


1 1 2737 


000076 


173202 


MOVB 


10 


002636 


112737 


000136 


173202 


MOVB 


11 


002644 


1 1 2737 


000056 


1 73202 


MOVB 


12 


002652 


000207 






i$: RETURN 



lied to attempt to start 
itter interrupt, 
line number. 

#*XCHAR, LSW3<R1> 

1* 

#IM*SM! IM*PPT, @#ICOCSR 

#IM*SR ! IMSPPT, @#ICOCSR 

#IM*CM! IM*PPT, e#ICOCSR 



output for the printer port. 



Is the transmitter busy now? 

Br if yes 

Set interrupt mask bit 

Set interrupt request flag 

Clear interrupt mask flag for 



xmitter 



i 

< 
i 
i 

f 
€ 
I 

( 
< 
t 
€ 
< 
i 
< 
i 
i 
< 
i 
i 
< 



{ 

i 
t 

i 
t 
i 
i 

i 

« 
1 l 

( 

i 
< 

< 

< 
i 

i 
* 

( 
( 
i 



TSXPRO — 
PPRINT — 

1 



TSX-Plus PROxxx Routi 
Receiver interrupt 



3 

4 

5 

6 

7 

8 

9 

10 

1.1 

12 

13 

14 

15 

1 6 

17 

IS 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 

50 



002654 



002654 004577 OOOQOOG 



002660 013704 000046' 



002664 
002670 



002674 
002702 
002704 
002710 
002716 
002720 
002724 
002732 
002734 



002740 
002744 
002746 



002754 
002760 



113705 173400 
042705 177400 



032737 
001402 
052705 
032737 
001402 
052705 
032737 
001402 
052705 OOOOOOC 



000010 173402 



OOOOOOC 
000040 

OOOOOOC 
000020 



17340£ 



032705 
001403 
052737 



004777 
000403 



OOOOOOG 
000020 

0000000 



173406 
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. SBTTL PPRINT — Receiver interrupt 

Interrupt service routine for printer port receiver interrupt. 

PPRIN'I: 

Call routine to save R0> Ri, R4, and R5. 

JSR R5; STTRSAV ; Save some registers 

RO.. Rl, R4 and R5 are now available. 

Get number of line connected to printer port. 

MOV PPLINE, R4 > Get line index number 

Get the character from the receiver 



MOVB @#PP*DBR, R5 
BIC #-C<377>, R5 



; Get the received character 
iKill sign extension 



Set flags in R5 to simulate status flags returned by DL11 receiver 



173402 1*: 



2*: 



BIT 

BEG 

BIS 

B I T 

BEQ 

BIS 

BIT 

BEQ 
met 



#PP*PE, @#PP*STR ; Was a parity error detected? 
1* ; Br if not 

#RBERR!RCVPAR, R5; Set parity error flag 
#PP*FE, fi#PP$STR ;Was a framing error detected? 
2* ;Dr if not 

#RBERR!FRMERR, R5; Set framing error flag 
#PP*OE> @#PP$STR j Did an overrun error occur? 
3* ; Br if not 

#RBERR!OVRRUN> R5; Set overrun error flag 



Clear error flags in receiver 

3*: BIT #RBERR, R5 > Were any errors detected? 
BEQ 4* i Br if not 

BIS #PP*RE, @#PP$CMR ; Clear error flags 

Call TTINPT to process the character we received 



4*: 



CALL 
BR 



STTINPT 
9* 



; Enter character input routine 
i Return from interrupt 



We got an interrupt but no character was available 
002762 112737 000115 173202 6*: MOVB #IM*CR I IM*PPR» @#ICOCSR ; Clear interrupt request flag 

■> Return from interrupt 
002770 000207 9$: RETURN ; Return from interrupt 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 



. SBTTL PPGDSS — Get data set status for printer port 

This is the device-dependent routine for the printer port which 
returns generic flags indicating the status of the data set for 
this line. 

Inputs: 
Rl =• Physical line index number 

Outputs: 
RO = Generic status flags 



002772 005000 



002774 000207 



PPGDSS: CLR 
Finished 

RETURN 



RO 



; Say no ring* carrier* or DTR 



TSXPRO 
PPSBRK 
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Control break transmission 



i 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



002776 



002776 032700 0000000 
003002 001404 



003004 152737 000010 173406 
003012 000403 



. SBTTL PPSBRK — Control break transmission 



PPSBRK is called to start or stop transmitting a break character 
to the printer port. 

Inputs: 
Rl ~ Physical line index number. 
RO » Break control flag (MS*BRK> 

PPSBRK: 

See if uje btb to start or stop sending a break 



BIT #MS*BRK,RO 
BEG 1* 



Start or stop sending break? 
Br to stop 



Start sending a break character 

BISB #PP*FB, £#PP$CMR ; Start sending a break 
BR 9* 



Stop sending a break character 
003014 142737 000010 173406 1*: BICB #PP*FB, @#PP$CMR ; Stop sending a break 

Finished 
003022 000207 9*: RETURN 



( 










TSXPRO - 


— TSX-P 


lus PRO* 




PPSSPD - 


— Set t 


ransmiss 


' c 


1 

2 






i 


3 
4 

5 






1 i 


6 
7 
S 






j < 

[ 


9 

to 

ii 


003024 


1 0346 


1 < 


i ? 








13 


003026 


110061 




14 






< 


15 
16 








17 


003032 


012703 


1 


IS 


003036 


032700 




19 


003042 


001003 




20 


003044 


052703 


i 


21 


003050 


000401? 




22 


003052 


052703 




23 


003056 


032700 


< 


24 


003062 


001407 


I 


25 


003064 


052703 


i 

i ^ 


26 


003070 


032700 


1 c 


27 


003074 


001002 


» 


28 


003076 


052703 




29 


003102 




< 


30 


003110 


105737 




31 


003114 


1 1 0337 










t 


33 
34 








35 


003120 


042700 


4 


36 


003124 


052700 




37 


003130 


110037 




38 


003134 




< 


39 
40 

41 






< 


42 


003142 


012603 




43 


003144 


000207 


i 








< 








* 








i 








i 








< 









0000010 



000102 
000000G 

000014 

000010 
0000000 

000020 
0000000 

000040 

173406 
173404 



OOOOOOC 

000260 

173404 
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. SBTTL PPSSPD — Set transmission speed for printer port 

PPSSPD is called to set the transmission speed for the printer port. 

Inputs: 
RO = Speed code. 
R.l = Physical line index number. 

PPSSPD: MOV R3, -<SP> 

Save new parameter flags for line 

MOVB RO. LMXPRM+1 <R1 ) > Save new flags for line 

Build value to store in mode register 1 (char length and parity) 

Get standard mode register 1 flags 

7 bit characters wanted? 

Br if yes 

Select 8 bit characters 



2$: 
3$: 



1*: 



MOV 


#PP*M1F, R3 


BIT 


#LP*7BT.. RO 


BNE 


2* 


BIS 


#PP*8BT, R3 


BR 


3* 


BIS 


#PP$7BT, R3 


BIT 


#LP*PAR, RO 


BEO 


1* 


BIS 


#PPf PAR, R3 


BIT 


#LP$ODD, RO 


BME 


1* 


BIS 


#PP*EVN, R3 


DISABL 




TSTB 


@#PP*CMR 


MOVB 


R3, @#PP*MDR 



Select 7 bit characters 

Parity wanted? 

Br if not 

Enable parity 

Odd parity wanted? 

Br if yes 

Select even parity 

*# Disable interrupts ** 

Access command reg to reset mode reg ptr 

Store value into mode register 1 



Store baud rate code into mode register 2 



BIC 


# A C<LP$SPD>, RO 


BIS 


#PP*M2F, RO 


MOVB 


RO, S#PP*MDR 


ENABL 




Finished 




MOV 


(SP)+, R3 


RETURN 





Clear all but baud rate code 
Set standard flags for mode register 2 
Store value into mode register 2 
; #* Enable interrupts ** 



> > 
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\ 



1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
1 1? 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003146 



003146 
003152 



003160 
003166 
003174 
003202 
003210 
003216 
003224 
003232 



003240 
003246 
003254 
003262 



003270 
003274 
003300 
003302 
003304 
003306 
003310 
003314 
003320 
003324 
003330 
003334 
003340 
003344 
003350 
003354 
003360 
003364 
003366 
003372 



010137 
012761 



012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 



012737 
012737 
012737 
012737 



012700 
112710 
000240 
000240 
000240 
000240 
112710 
112710 
112710 
112710 
112710 
112710 
112710 
112710 
112710 
112710 
116100 
001002 
012700 
004737 



.SBTTL #** Communications Port Control Routines ##«• 
. SBTTL CPINIT — Communications port initialization 

Perform initialization For the communications port. 

Inputs: 
Rl = Index number of time-sharing line connected to com port 



CPINIT: 



000050 ' 
0000000 OOOOOOG 



003772 ' 
004060 ' 
004122' 
004210' 
004276 ' 
004346 ' 
004374 ' 
004462 ' 



OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 
OOOOOOC 



003504' 000210 

000340 000212 

003504' 000214 

000340 000216 



173302 
000030 



000300 
000004 
000104 
000003 
000001 
000005 
000010 
000002 
000000 
000020 
00000 10 

OOOOOOG 
004462 ' 



Remember which line is connected to coram port 

MOV Ri,CPLINE ; Remember line index number 

MOV #CDX*PC,LCDTYP(R1> i Set type of communications controller 

Set addresses of communication port device-dependent routines 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



#CPSTRT 

#CPCLOK 

#CPXOFF 

#CPXON, 

#CPGDSS 

#CPSDSS 

#CPSBRK 

#CPSSPD 



, CDSTRT+CDXSPC 
, CDCLOK+CDX*PC 
, CDSXOF+CDX*PC 
CDSXON+CDX*PC 
, CDGD5S+CDX*PC 
, CDSDSS+CDX*PC 
, CDSBRK+CDX*PC 
, CDSSPD+CDX*PC 



Set address of start routine 

Set address of timet — driven routine 

Routine to send XOFF 

Routine to send XON 

Routine to get data set status flags 

Routine to do data set control 

Routine to control break transmission 

Routine to set transmission speed 



Connect to interrupt vectors 

MOV #CPCINT, @#CP$RTV; Receiver/transmitter interrupt 

MOV #340, @#CP*RTV+2 ; Set prio « 7 

MOV #CPCINT, @#CP*MCV; Modem change interrupt 

MOV #340, @#CP$ MCV+2 i Set prio = 7 



Initialize values in CSR A 



1*: 



MOV 


#CP*CAR, RO 


MOVB 


#CP*CR, <R0) 


NOP 




NOP 




NOP 




NOP 




MOVB 


#300, <R0> 


MOVB 


#CP*WR4, (RO) 


MOVB 


#CP*AW4, <R0) 


MOVB 


#CP*WR3, <R0) 


MOVB 


#CP*AW3, (RO) 


MOVB 


#CP*WR5, (RO) 


MOVB 


#CP$AW5, (RO) 


MOVB 


#CP*WR2, (RO) 


MOVB 


#0, <R0> 


MOVB 


#CP*RES, (RO) 


MOVB 


LMXPRM+KR1) 


BNE 


1* 


MOV 


#S9600, RO 


CALL 


CPSSPD 


a 1 i z e 


values in CSR 



RO 



; Get pointer to CSR A 

; Reset the channel 

; Delay time for channel clear operation 



Reset transmitter underrun condition 

Select write register 4 

16x clock rate, 1 stop bit, asynch 

Select write register 3 

Enable receiver and set 8-bit char len 

Select write register 5 

8-bit char, enable transmitter 

Select write register 2 

Store all zero in WR2 

Reset external interrupts 

Get flags for line 

Br if speed specified 

Default to 9600 baud 

Set speed, parity, character length 
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58 

59 003376 

60 003402 

61 003406 

62 003412 

63 003416 

64 003422 
65 

66 
67 

68 003426 

69 003434 

70 003442 

71 003450 

72 003456 

73 003464 

74 003472 

75 003474 
76 

77 
78 
79 003502 



012700 
112710 
112710 
112710 
112710 
112710 



1 1 2737 
112737 
1 1 2737 
1 1 2737 
1 52737 
032761 
001003 
1 52737 



000207 



173306 
000030 
OOOOOk' 
000000 
000001 
000004 



000033 
000000 
000001 
000032 
000010 
OOOOOOG 



173202 
173310 
173302 
173302 
173310 
OOOOOOG 



000020 173310 



MOV 


#CP*CBR> RO 


MOVB 


#CP*CR, <R0) 


MOVB 


#CP*WR2/ <R0> 


MOVB 


#0, (RO) 


MOVB 


#CP*WR1/ <R0) 


MOVB 


#4, (R0> 



ifiet pointer to CSR B 

; Reset the channel 

/Select write register 2 

> Set O as vector base 

;Select write register 1 

/Store value specified in ref manual 



Enable interrupts 



MOVB 

MOVB 

MOVB 

MOVB 

BISB 

BIT 

BNE 

BISB 

F i n i shed 

RETURN 



#IM*CRM!IM*CPD»€#ICOCSR /Clear interrupt mask 

#0> @#CP*MOR ; Initialize modem control register 

#CP*WRl*e#CP*CAR j Select CSR A write register 1 

#CP*RIE!CP*TIE. fi#CP*CAR .Enable receiver and transmitter ints 

#CP$RTS/ €#CP*MOR; Set RTS 

#*PHOME/ XLSM2<R1>; Is this a dial-up line? 

2* /Br if yes — don't set DTR yet/ wait for 

#CP*DTR#e#CP*MOR;Set DTR 



ring 



t 



TSXPRO 
CPCINT 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

13 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 



003504 
003506 
003514 
003520 
003522 
003526 



003532 
003534 
003536 
003540 
003542 
003544 
003546 
003550 



003552 
003560 



010046 
1 1 2737 
113700 
006200 
042700 
000170 



003572 •' 
003572' 
003572' 
003572 ' 
003672 •' 
003564' 
003604 ' 
003552' 



1 1 2737 
000137 



000002 
173306 

177761 
003532 ' 



000060 
003604 ' 



SBTTL CPCINT 



Receiver/Transmitter interrupt routine 



CPCINT is the interrupt entry point for both receiver and transmitter 
interrupts. 



173306 



CPCINT: MOV 
MOVB 
MOVE 
ASR 
BIC 
JMP 



RO»-<SP) ; Get a work register 

#CP*RR2. @#CP*CBRi Select CSR B read register 2 

@#CP*CBR, RO ;Get the interrupt flags from RR2 

RO i Get value as word table index 

# A C<16>>RQ > Clear all but interrupt code flags 

©CPIVEC(RO) ; Jump to appropriate interrupt service rtn 



Jump vector based on interrupt type 



CPIVEC: . WORD CPIERR 

. WORD CPIERR 

. WORD CPIERR 

. WORD CPIERR 

. WORD CPITR 

. WORD CPIESC 

. WORD CP IREC 

. WORD CPISRC 



; - Inval i d 

; 1 - Inval i d 

; 2 - Inval id 

> 3 - Inval id 

»4 - Transmitter buffer emtpy 

; 5 - External status change 

; 6 - Received character 

; 7 - Special receiver condition 



Special receiver condition interrupt 



173302 CPISRC: MOVB 

JMP 



#CP*ER, @#CP$CAR ; Reset error status flags 

CPIREC ; Process any character we got with errors 



003564 112737 000020 17330J 



003572 
003600 
003602 



1 1 2737 
1 2600 
000002 



External status change interrupt processing 

CPIESC: MOVB #CP*RES, @#CP*CAR; Reset external status 

Invalid interrupt code. 

Reset interrupt status and return. 



000070 173302 CPIERR: MOVB 

MOV 
RTI 



#CP$EI, e#CP*CAR > Declare end of interrupt 
<5P>+, RO 

; Return from interrupt 



I 
I 

€ 
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— Received character from comm port 



. SBTTL CPIREC 



Received character from comm port 



003604 012600 



003606 004577 OOOOOOG 



003612 005005 

003614 112737 000000 173302 

003622 113704 173302 

003626 132704 000200 

003632 00 1 402 

003634 052705 0000000 

003640 112737 000020 173302 3*: 



003646 153705 173300 



003652 112737 000070 173302 



003660 013704 000050' 



003664 004777 OOOOOOG 



003670 000207 



CPIREC is the interrupt service routine called when u>e get an 
interrupt from the comm port saying that it has received a character. 

On entry, RO is on the stack. 

CPIREC: MOV (SP>+, RO ; Restore RO 

Call routine to save R0> Rl, R4, and R5 

JSR R5,@TTRSAV j Save registers 

R0> Ri, R4 and R5 ar& available. 
See if a framing error was detected 

CLR R5 ; Build character and flags in R5 

MOVB #CP*RRO, €#CP*CAR; Select read register 

MOVB €#CP*CAR, R4 ; Get contents of read register 

B1TB #CP$BR, R4 ; Was a break detected? 

BECi 3$ i Br if not 

BIS #FRMERR,R5 ; Set framing error flag 

MOVB #CP*RES, @#CP*CAR; Reset register flags 

Get the character from the receiver 

BISB @#CP*DBR,R5 ; Get the received character 
Reenable interrupts from receiver 

MOVB #CP*EI, S#CP*CAR ; Declare end of interrupt 
Get number of line connected to communications port 

MOV CPLINE, R4 ; Get line index number 
Call TTINPT to process the character 

CALL ©TTIMPT > Enter routine to process the character 
Return from interrupt 

RETURN > Return from interrupt through TTRSAV 



TSXPRO 
CP I TR 
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i 

2 
3 

5 

6 

7 

S 003672 

9 003674 
10 003700 
11 
12 
13 

14 003704 

15 003710 

16 003716 

17 003724 
18 

19 
20 

21 003732 

22 003736 
23 

24 
25 

26 003740 

27 003746 

28 003754 
29 

30 
31 

32 003760 

33 003764 

34 003766 

35 003770 



010446 
013746 
005037 



013704 
042764 
1 1 2737 
1 1 2737 



103410 



052764 
042764 
1 1 0037 



012637 
012604 
012600 
000002 



OOOOOOG 
OOOOOOG 



000050 ' 
0000000 
000050 
000070 



uuuuuuy 



OOOOOOG 

173302 

173302 



OOOOOOG 
OOOOOOG 
173300 



OOOOOOG 



OOOOOOG 
OOOOOOG 



. SBTTL CPITR 



Transmitter interrupt 



CPITR is the interrupt service routine for the communications port 
transmitter. 

On entry.. RO is on the stack. 

CPITR: MOV R4, -<SP) 

MOV INTPRI, -<SP> 
CLR INTPRI 



; Stack R4 also 

> Save current interrupt priority 

; Say running interrupt priority is 7 



Say that line is no longer transmitting a character 

MOV CPLINE, R4 ; Get # of line connected to comm port 

BIC #*XCHAR, LSW3<R4>; Clear transmitting-charac ter flag for line 

MOVB #CP*RTI, @#CP*CAR; Reset transmitter interrupt flag 

MOVB #CP*EI,@#CP*CAR ; Declare end of interrupt 



Get next character to transmit 



CALL 



@L0UTIR<R4> 
9* 



ifiet next char to transmit 
i Br if no more chars to send 



Transmit the character 



9*: 



BIS 
BIC 
MOVB 

Finished 

MOV 
MOV 
MOV 
RTI 



#*XCHAR> LSW3(R4) ; Say a character is being transmitted 
#*OITIM> LSW5<R4>; Start timer to catch lost interrupts 



RO, @#CP*DBR 



<SP>+, INTPRI 
<SP)+, R4 
(SP)+, RO 



; Transmit the character 

; Restore interrupt priority level 
i Return from interrupt 



{ 

I < 
I f 

c 

' < 

i 

t 
i 
i 
t 
< 

i 

< 

< 
i 
i 
< 
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10 

11 

12 

13 
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15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

vJuJ 

34 
35 
36 
37 
38 
39 
40 
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. 8BTTL CPSTRT — Start output to communications port 
CPS'IRT is called to initiate output to the communications port. 
Rl = Line index number of line being started. 



003772 010046 
003774 010446 



003776 



CPSTRT: MOV 
MOV 



RO, -<SP> 
R4, -<SP> 



Disable communications port interrupts 

DISABL ;i -Disable interrupts 

See if the communications port transmitter is already busy 



004004 032761 0000000 OOOOOOG 
004012 001014 



BIT #*XCHAR, LSW3(Ri) 
BME 1* 

Transmitter is idle. 

Get next character to transmit 



004014 010104 
004016 004774 OOOOOOG 
103410 



004024 052761 OOOOOOG OOOOOOG 
004032 042761 OOOOOOG OOOOOOG 
004040 110037 173300 



MOV 

CALL 

BCS 



Rl, R4 

@L0UTIR(R4) 

1* 



004044 



004052 012604 
004054 012600 
004056 000207 



Start transmission 

BIS #*XCHAR, LSW3<R1> 
BIC #*OITIM, LSW5<R1) 
MOVB RO, @#CP*DBR 

> Enable the transmitter interrupt 

1*: EMABL 

; F i n i s h e ci 

MOV < SP ) +, R4 
MOV <SP)+, RO 
RETURN 



;;;Is the transmitter busy now? 
; ; > Br if yes 



Get line # to R4 for NEDCHR 
Get a character to transmit 
Br if nothing to transmit 



; ; Say a character being transmitted 
;; Start timer to catch lost interrupt 
;; Transmit the character 



; Enable interrupts 



{ 
I 

I 
f 
t 
t 

t 
< 

€ 
€ 

< 

< 

t 
i 

i 



TSXPRO -- TSX-Plus PROxxx Routi MACRO V05. 04 Friday 18-Dec-B7 16:08 Page 41 
CPCLOK — Timer driven routine for communications port 



1 

2 

3 

4 

5 

6 

7 

8 

9 

.10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



004060 



. SBTTL CPCLOK -— "I imer driven routine for communications port 

CPCLOK is a timer driven routine called periodically to check on 
the status of the communications port. 

Inputs: 
Rl = Line index number. 

CPCLOK: 

Check for lost output interrupts 



004060 032761 0000000 OOOOOOG 

004066 001411 

004070 032761 0000000 OOOOOOG 

004076 001410 

004100 042761 OOOOOOG OOOOOOG 

004106 004737 003772 ' 

004112 052761 OOOOOOG OOOOOOG 1*: 



BIT 
BEG 
B I T 
BEG 
BIC 
CALL 

PTQ 



23 004120 000207 



F i n i s h e d 
9*: RETURN 



#*OITIM, LSW5(R1>; Have we started timer interval? 

1* ; Br if not 

#*XCHAR, LSW3(R1 >; Are we still waiting for an interrupt? 

9* i Br if not 

#*XCHAR, LSW3(R1 >; Say wait is over 

CPSTRT 'Try to restart transmitter 

#*OITIM, LSW5<R.t>; Start timed interval 



TSXPRO — TSX- 


=»lus PROx 


CPXOFF — Transmit XOFF 


i 




2 




3 




.•I 




5 




6 




7 




8 




9 004122 




10 




11 




12 




13 004130 


052761 


14 




15 




16 




17 004136 


032761 


18 004144 


001404 


19 




20 




21 




22 




23 004146 


052761 


24 004154 


000411 


25 




26 




27 




28 




29 004156 


052761 


30 004164 


042761 


31 004172 


1 1 2737 


32 




33 




34 




35 004200 




36 004206 


000207 
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to communications port 

SBTTL CPXOFF — Transmit XOFF to communications port 

i CPXOFF is called to stuff an XOFF character into the output stream 
, for xne communications port. 

> 

> Inputs: 

J R 1 : » Line index numb er. 

CPXOFF: DISABL ) i ; ** Disable interrupts #* 

Set flag that says XOFF has been sent 

BIS #*HISTP, LSW10<R1); ; ; Remember that XOFF has been sent 

See if the transmitter is busy now 



0000000 000000G 



000000G 0000000 



BIT 
BEG 



#*XCHAR, LSW3(Rl)j i ; Is the transmitter busy now? 

1* iiiBr if not busy now 



The transmitter is busy now. 

Set flag which will cause output character generator to send XOFF 



0000000 0OO0OOG 



BIS 
BR 



#*SXOFF, LSW10<R1); ; j Set flag to cause XOFF to be sent 
9* m 



Transmitter is not busy. 
Transmit, an XOFF character. 



0000000 000000G 1*: 
OOOOOOG OOOOOOG 
000023 173300 



BIS 
BIC 
MOVB 

Finished 



#*XCHAR,LSW3<R1>; 
#*OITIM, LSW5(R1); 
#23, «#CP*DBR i 



> Say transmitter busy 

; Start output interrupt timer 

; Transmit XOFF 



9*: 



ENABL 
RETURN 



; «•«• Enable interrupts ** 



TSXPRO - 
CPXON • 

1 
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19 
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— Transmit XON to communications port 



004210 



004216 042761 OOOOOOG OOOOOOG 



004224 032761 OOOOOOG OOOOOOG 
004232 001404 



004234 052761 OOOOOOG OOOOOOG 
004242 000411 



. SBTTL CPXON — Transmit XON to communications port 

CPXON is called to stuff an XON character into the output stream 
for the communications port. 

Inputs: 
Rl ••= Line index number. 

CPXON: DISABL ; ; ; ** Disable interrupts ** 

; Clear flag that says XOFF has been sent 

BIC #*HISTP, L5W10<R1>; ; ; Clear flag that says XOFF sent 

See if the transmitter- is busy now 

BIT #*XCHAR» LSW3<R1>; ; ; Is the transmitter busy now? 
BEO 1* i i ; Br if not busy now 

The transmitter is busy now. 

Set flag which will cause output character generator to send XON 

BIS #*SXON, LSW10<R1>;; ; Set flag to cause XON to be sent 
BR 9* m 

Transmitter is not busy. 
Transmit an XON character. 



004244 052761 OOOOOOG OOOOOOG 1*: 
004252 042761 OOOOOOG OOOOOOG 
004260 112737 000021 173300 



BIS 
BIC 
MOVB 

Fini shed 



#*XCHAR,L3W3(R1); 
#*OITIM, LSW5<Rl)i 
#21,e#CP*DBR i 



; Say transmitter busy 

; Start output interrupt timer 

; Transmit XON 



004266 

004274 000207 



9*: 



ENABL 
RETURN 



; #* Enable interrupts ## 



t 

\ 



i 
i 
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Get communications port data set status 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
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20 
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22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



. SBTTL CPGDSS — Get communications port data set status 

CPGDSS is called to pet the data set (modem) status for the 
communications port. 

Inputs: 
Ri = Physical line index number 

Outputs: 
RO ~ Generic data set status flags <MS*xxx> 



004376 005000 



004300 132737 000100 173312 

004306 00140;:' 

004310 052700 OOOOOOG 



CPGDSS: CI R 



RO 



Develop result in RO 



See if the phone is ringing 



BITB 
BEG 



#CP$RI, @#CP$M1R > Is the phone ringing? 
1* ; Br if not 

#M5*RNG, RO i Set ringing flag 



See if carrier is detected 



004314 132737 000020 173312 1$: 

004322 001402 

004324 052700 OOOOOOG 



BITB #CP$CD, @#CP*M1R ;Do we have carrier detect? 

BEQ 2* ; Br if not 

BIS #MS*CAR, RO > Set carrier-detect flag 



See if Data Terminal Ready is asserted 



004330 132737 000020 173310 2*: BITB 
004336 001402 BEQ 

004340 052700 OOOOOOG BIS 



#CP$DTR, ®#CP*MOR; Are we asserting DTR? 

3* ; Br if not 

#MS*DTRa RO ; Remember DTR is asserted 



004344 000207 



F i n A shed 
3$: RETURN 
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Set data set status for communications port 



c 



004346 



004346 032700 OOOOOOG 
004352 001404 



004354 152737 000020 173310 
004362 000403 



. SBTTL CPSDSS — Set data set status for communications port 

CPSDSS is called to control the data set (modem) status for the 
communications port. 

Inputs: 
Rl = Physical line index number 
RO = Data set control flags <MS*xxx) 

CPSDSS: 

See if we should raise or drop Data Terminal Ready 



BIT 
BEG 

Raii,e DTR 

BISB 
BR 



> Drop DTR 
004364 142737 000020 173310 1$: BICB 

; Finished 
004372 000207 9$: RETURN 



#MS*DTR, RO 
1* 



j Raise or drop DTR? 
; Br to drop DTR 



#CP*DTR , ©#OP$MOR ; Ra i s e DTR 
9* 



#CP*DTR, @#CP$MOR> Drop DTR 



€ 
€ 



TSXPRO 
CPSBRK 



— TSX-Plus PROx 

— Control break 



i 

€ 
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004374 010246 
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transmission on communications port 

. SBTTL CPSBRK — Control break transmission on communications port 

CPSBRK is called to start or stop transmitting a break character to 
the communications port. 

Inputs: 
RO =■ Break control flag <MS*BRK> 
Rl = Physical line index number. 

CPSBRK: MOV R2, -<SP> 

Set standard flags for wr i t-e-reg ister 5 



004376 
004402 
004410 
004412 



004416 
004422 
004424 



004430 
004436 
004444 
004450 



004456 
004460 



012702 
132761 
001002 
052702 



032700 
001402 
052702 



000050 

0000000 00000 1G 

000140 



0000000 
000020 



MOV #CP*AW5!CP*7BT, R2 ; Standard flags and 7-bit char length 

BITB #LP*7BT, LMXPRM+KR1); 7-bit characters wanted? 

BNE 2* ; Br if yes 

BIS #CP*8BT> R2 i Select S-bit characters 

See if we want to start or stop sending a break 



2$: 



BIT 


#MS$BRK, RO 


BEQ 


1* 


BIS 


#CP*SB* R2 



Start or stop sending break? 

Br if stop 

Set send-break flag 



Store parameters into control register 



1*: 



112737 
1 1 0237 



000005 173302 
173302 



012602 
000207 



9*: 



DISABL 




MOVB 


#CP*WR5, @#CP*CAR 


MOVB 


R2, e#CP«CAR 


ENABL 




F i n i s h e d 




MOV 


<SP)+, R2 


RETURN 





i ; #* Disable interrupts ** 
> i Select write register 5 
; i Start or stop sending break 
## Enable interrupts #* 



TSXPRO — 
CPSSPD — 

1 
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8 








9 








10 


004462 


010346 




11 


004464 


010446 




12 


004466 


010546 




13 








14 








15 








16 


004470 


110061 


0000010 


17 








18 








19 








20 


004474 


010003 




21 


004476 


042703 


ooooooc 


22 


004502 


010346 




23 


004504 


072327 


000004 


24 


004510 


052603 




25 


004512 


1 1 0337 


173314 


26 








27 








28 








29 


004516 


012704 


1 73302 


30 


004522 


012703 


000104 


31 


004526 


032700 


0000000 


32 


004532 


001407 




33 


004534 


052703 


000001 


34 


004540 


032700 


0000000 


35 


004544 


001002 




36 


004546 


052703 


000002 


37 


004552 


112714 


000004 


38 


004556 


110314 




39 








40 








41 








42 


004560 


012703 


000001 


43 


004564 


012705 


000010 


44 


004570 


032700 


0000000 


45 


004574 


001005 




46 


004576 


052705 


000140 


47 


004602 


052703 


000300 


48 


004606 


000404 




49 


004610 


052705 


000040 


50 


004614 


052703 


000100 


51 


004620 






52 


004626 


112714 


000003 


53 


004632 


110314 




54 


004634 


112714 


000005 


55 


004640 


110514 




56 


004642 






57 









SBTTL CPSSPD 



Set speed for communications port 



CPSSPD is called to set the transmit/receive speed for 
the communications port. 



Inputs: 
RO ~ Speed code. 
Rl = Physical line index number. 



CPSSPD: 



MOV 
MOV 
MOV 



R3, -(SP> 
R4, -<SP> 
R5.. -<SP) 



MOV 


RO, R3 


BIC 


# A C<LP*SPD>» R3 


MOV 


R3» -<SP> 


ASH 


#4, R3 


BIS 


(SP)+, R3 


MOVB 


R3, @#CP*BRR 



1*: 



Set baud rate in line parameter word for this line 

MOVB RO, LMXPRM+KR1) ; Save new flags for line 
Store speed value into hardware control register 



Oet all flags 

Clear all but speed code 

Save speed code 

Shift speed value left 4 bits 

Combine with unshifted value 

Set baud rate in hardware register 



Get pointer to CSR A 

Get standard bits for WR4 

Is parity wanted? 

Br if not 

Set parity-enable flag 

Is odd parity wanted? 

Br if yes 

Select even parity 

Select write register 4 

Set parity control flags 



Set parity control 



MOV 


#CP*CAR, 


R4 


MOV 


#CP*AW4> 


R3 


BIT 


#LP*PAR, 


RO 


BEQ 


1* 




BIS 


#CP*PAR, 


R3 


BIT 


#L_P*ODD, 


RO 


BME 


1* 




BIS 


#CP*EVN> 


R3 


MOVB 
MOVB 


#CP*WR4> 
R3, <R4> 


(R4) 



Set character length 



2*: 
3*: 



MOV 


#CP*AW3, 


R3 


MOV 


#CP*AW5, 


R5 


BIT 


#LP*7BT, 


RO 


BNE 


2* 




BIS 


#CP*8BT, 


R5 


BIS 


#CP*8BR, 


R3 


BR 


3* 




BIS 


#CP*7BT, 


R5 


BIS 


#CP*7BR, 


R3 


DISABL 






MOVB 


#CP*WR3.. 


<R4> 


MOVB 


R3, (R4) 




MOVB 


#CP*WR5, 


<R4) 


MOVB 


R5, (R4) 




ENABL 







Get standard flags for WR3 
Get standard flags for WR5 
7 bit characters wanted? 
Br if yes 
Select 8 bit characters 



Select 7 bit characters 

; ; #* Disable interrupts ## 

; ; Select write register 3 

i i Set length for received characters 

;j Select write register 5 

; i Set length for transmitted characters 

«•# Enable interrupts *# 
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58 






59 






60 


004650 


012605 


61 


004652 


01260-'! 


62 


004654 


012603 


63 


004656 


000207 



F i n i s h e d 

MOV 
MOV 
MOV 



<SP>+, R5 
(SP)+, R4 
(SP)+, R3 



RETURN 



( 
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004660 010546 



004662 

12 004666 

13 004672 

14 004674 
15 

16 
17 
IS 

19 004676 

20 004702 

21 004706 

22 004710 

23 004716 

24 004722 

25 004724 
26 

27 
28 

29 004726 

30 004732 

31 004740 

32 004742 

33 004746 

34 004754 

35 004760 

36 004764 

37 004770 

38 004774 

39 005000 
40 

41 
42 

43 005004 

44 005012 

45 005020 

46 005026 

47 005034 
48 

49 
50 

51 005042 

52 005046 
53 

54 
55 

56 005052 

57 005060 



012746 
004737 
012605 
103014 



012705 
005765 
001403 
052765 
162705 
003367 
000502 



010537 
132765 
00 1 402 
105237 
142765 
012746 
004737 
012637 
012700 
004737 
1 1 0037 



012737 
012737 
012737 
012737 
012737 



105065 
105065 



112765 
.'! 1 2765 



000064 
001172' 



OOOOOOG 
0000000 

OOOOOOG OOOOOOG 
000002 



000066 ' 
000004 000004 



000004 1*: 



000110' 

000100 

000064 

001134 

000070 

000064 

001254' 

000111 ■ 



005310 ' OOOOOOG 
006054' OOOOOOC 
006160' OOOOOOC 
006016' OOOOOOC 
005632' OOOOOOC 



000132 
000172 



000360 
000360 



00O110 
000150 



. IF NE, QPASM i Assemble if quad line unit code wanted 
. SBTTL *•** Quad Serial Line Unit Routines #*-# 
.SBTTL QPINIT — Initialize quad serial line unit 

QPINIT is called to initialize the quad serial line unit 

QPINIT: MOV R5, ~<SP) 

Determine if a quad line unit is installed 



MOV #QP*ID*-<SP> 

CALL GPRCSR 

MOV (SP)+, R5 

BCC 2* 



; Stack device ID for quad line unit 
■ Get CSR for quad line unit 
i Get returned CSR address 
; Br if it is installed 



There is no quad line unit installed. 

Mark all lines associated with quad line unit as dead. 



3$: 



4*: 



MOV 
TST 
BEQ 
BIS 
SUB 
BGT 
BR 



#LSTHL» R5 ; Get index to last line 

LMXNUM(RS) ; Is this a quad unit line? 

4* i Br if not 

#*DEAD> LSW3(R5) ; Mark line as dead 

#2, R5 ;Get next line index 

3* ; Br if more lines to do 

9* i Finished 



There is a quad line unit installed 



2*: 



MOV 

BITB 

BEQ 

INCB 

BICB 

MOV 

CALL 

MOV 

MOV 

CALL 

MOVB 



R5, QPCSR ; Save CSR address 

#QP$22C> QPRMSR<R5>; Do we have modem control on lines and 2? 

1* ; Br if not 

QPMODM j Remember we have modem control on two lines 

#QP*IEN,QPRMSR<R5>; Clear interrupt-enable bit 



#QP*ID, -<SP) 
GPRVEC 
<SP>+, GPVEC 
#QP*ID, RO 
GETSLT 
RO, QPSLOT 



Stack device ID 

Get vector address 

Save vector address 

Get device ID 

Get slot # where device is installed 

Save the slot number 



Set addresses of quad line unit device-dependent routines 



MOV 
MOV 
MOV 
MOV 
MOV 



#QPSTRT, CDSTRT+CDX*QP 
#QPGDSS, CDGDSS*-CDX*QP 



#QPSDSS, CDSDSS+CDXSQP ; Set data set status 



#QPSBRK, CDSBRK+CDX*QP 
#GPS5PD, CDSSPD+CDX*QP ; 



Start-output routine 
Get data set status 



Control break transmission 
Set line speed 



Initialize Output Port Configuration Register 

CLRB QPR0PC<R5) ;A11 bits are off in OPCR 
CLRB QPR0PC+GPRU0F<R5> ; DUART 1 

Initialize Auxiliary Control Register 

MOVB #QP*AWA, QPRACR(RS) ; Ini tial i ze ACR 
MOVB #QP*AWA, QPRACR+QPRU0F<R5) > DUART 1 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 



005066 
005074 



005102 
005110 



llk'/6t> 0000613 OOOH2 
112765 000063 000152 



112765 000377 000136 
112765 000377 000176 



005116 012700 000030 
005122 153700 000111' 
005126 110037 173206 



005132 012605 
005134 000207 



Initialize Interrupt Ma<>k Register 

MOVB #GP$AWI, QPRIMR<R5> initialize IMR 
MOVB #QP*AWI, QPRIMRK5PRUOF<R5> ; DUART 1 

Initialize output port 

MOVB #377, QPRR0P<R5> > Reset all output port bits 
MOVB #377, GPRR0P+QPRU0F(R5> > DUART 1 



Initial iie interrupt controller 



9$: 



MOV 


#IM$CRM, RO 


BISB 


QPSLOT, RO 


MOVB 


RO, @#IC1CSR 


Finished 




MOV 


(SP)+, R5 


RETURN 





; Get command to clear IRR and IMR int flags 
; Or in slot number where QP controller is 
.; Clear IRR and IMR flags for quad port 



TSXPRO 
QPLINE 
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Initialize a line connected to quad line unit 



. SBTTL QPLINE — Initialize a line connected to quad line unit 

QPLINE is called to initialize a specific line that is connected to 
the quad serial line unit. 

Inputs: 
Rl - Line index number. 



005136 010546 



005140 012761 0000000 0000000 



QPLINE: MOV 



R5, -<SP> 



Say this line is controlled by quad serial line unit 

MOV #CDX*GP,LCD1YP<R1> 
See if quad line unit is installed 



005146 
005152 



005154 
005160 
005164 
005170 
005176 



005204 
005210 
005212 
005216 



005737 
001454 



016105 
110165 
016100 
013760 
013760 



105737 
001403 
032705 
001403 
042761 



000066 ' 



TST 
BEQ 



QPCSR 
9* 



;Is quad line unit installed? 
;Br if not 



0000000 
000104' 
0000000 

000066' 0000OOG 
000070' 0000000 



000110' 

000001 

0000000 OOOOOOG 3*: 



TSTB 


QPMODM 


BEG 


3* 


BIT 


#1, R5 


BEG 


4* 



005226 004737 006236 ' 



4*: 



005232 112765 000020 000104 
005240 112765 000023 000100 
005246 112765 000007 000100 



005254 112765 000273 000102 



005262 
005270 
005276 



112765 000052 000104 
112765 000100 000104 
112765 000065 000104 



Remember the TSX-Plus line index number associated with this unit line 

MOV LMXLN<R1),R5 ; Get # of line within quad unit 

MOVB Ri,QPLX<R5> ; Store TSX-Plus line index # 

MOV LMXNUM(Ri), RO ; Get mux index number 

MOV QPCSR, MXCSR<RO) i Remember CSR address for unit 

MOV QPVEC, MXVEC<RO) ; Remember vector address of unit 

See if this line should have modem control 

; Are we configured for modem control? 
; Br if not — No lines have modem control 
; Is this line or 2? 
; Br if yes — Has modem control 
BIC #*PHONE, JLSW2<Ri >; Say line does not have modem control 

Convert line number into quad unit address 

CALL QPCVLA ; Convert line # to address 

At this point, 
R5 »• Base address of registers for quad unit and channel. 

Initialize mode registers 1 and 2 

MOVB #QP*RPR,QPRCRA<R5); Select mode register 1 
MOVB #023, GPRMRA<R5) ; Initialize mode register 1 
MOVB #007, QPRMRA<R5> ; Initialize mode register 2 

Initialize clock select register 

MOVB #273, QPRCSA<R5) ; Initialize to 9600 baud 

Initialize receiver and transmitter 

MOVB #GP$RRX!QP*DRX!QP*DTX,QPRCRA<R5> ; Reset receiver + disable 

MOVB #QP*RES, QPRCRA(R5) > Reset error status 

MOVB #GP*RTX!QP*ERX.'GP$ETX, QPRCRA(R5) ; Reset transmitter + enable 
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58 ; 

59 ; Finished 

60 .; 

61 005304 012605 9$: MOV (SP)+, R5 

62 005306 000207 RETURN 



i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 
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27 
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33 
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. SBTTL QPSTRT — Start output 



005310 010546 



005312 004737 006236' 



005316 

005324 032761 0000000 0000000 

005332 001003 



QPSTRT is called to initiate output to a line connected to the 
quad line unit. 

Inputs: 
Rl •"-- Line index number. 

QPSTRT: MOV R5, -<SP> 

Convert line number into quad unit address 

CALL QPCVLA ; Convert line # to address 

At this point* 
R5 = Base address of registers for quad unit and channel. 

See if the transmitter is already busy 

DISABL > :• > Disable interrupts 

BIT #fXCHAR, LSW3<F<1); ; ; Is the transmitter busy nou>7' 

ONE 1* ; i ; Br if yes 

Transmitter is idle. 

Enable the transmitter which will cause an interrupt. 



005334 112765 000004 000104 



005342 

005350 012605 

005352 000207 



MQVB 
Finished 



#GP*ETX, QPRCRA(R5)i ;; Enable transmitter (will cause interrupt) 



1*: ENABL 

MOV <SP>+, R5 
RETURN 



; Enable interrupts 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



005354 



005354 004577 0000000 
005360 010246 
005362 010346 



005364 013703 000066' 
005370 142763 000 100 000004 
005376 010301 



005400 005002 



005402 116204 000104 
005406 001461 



005410 136263 005622' 000112 
005416 001422 



005420 004774 000000G 
005424 103411 



005426 052764 0000000 000000G 

005434 042764 000000G OOOOOOG 

005442 110061 000106 

005446 000406 



SBTTL QPCINT — Interrupt from quad line unit 



QPCINT is the interrupt entry point for all interrupts from the 
quad line unit. 



QPCINT: 



Save registers RO, Ri, R4, and R5. 

TTRSAV is the standard interrupt entry routine called when processing 
received character interrupts. We always call it in the case of an 
interrupt from a quad unit line since we don't know whether the interrupt 
i s firnfT) 3 transmitter or receiver. 

; Save regi sters 



JSR 


R5, ©TTRSAV 


MOV 


R2, -(SP) 


MOV 


R3, -<SP> 



Disable further interrupts from the quad line unit 

MOV QPCSR, R3 ; Get address of base of registers for DUART O 

BICB #OP$IEN, GPRMSR(R3) ; Clear interrup t-enab le bit 

MOV R3, Rl i Get addr of base of registers for DUART 

Begin loop to determine which of the four lines needs service 

CLR R2 i Start with line # (DUART 0, channel A) 

Get TSX-Plus line index number of this line 



1*: MOVB GPLX(R2),R4 
BEG 3* 



; Get TSX-Plus line index number 
; Br if no line connected 



See if an output interrupt occurred 

BITB QPFTXR(R2>, QPRISR(R3>; Is transmitter ready for another char? 

BEG 2* iBr if not 

The transmitter is ready for another character. 
See if there is another character to transmit. 



CALL @L0UTIR(R4) 
BCS 8* 



i Get next character to transmit 
iBr if no more chars to transmit 



005450 042764 OOOOOOG OOOOOOG 8$: 
005456 112761 000010 000104 



Transmit the character contained in RO 

BIS #*XCHAR, LSW3(R4)i Set transmitter-busy flag 

BIC #*OITIM, LSW5(R4); Start timer to catch lost interrupts 

MOVB RO, GPRTRACR1 ) > Start transmitting the character 

BR 2* 

There awe no more characters to transmit. 
Disable the transmitter 

BIC #$XCHAR, LSW3(R4); Say transmission finished 
MOVB #QP*DTX, QPRCRA(Rl) ; Disable the transmitter 

See if this line has received a character 



TSXPRO ■ 
GPCINT - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 
112 
113 
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005464 
005472 



005474 
005500 
005504 



005510 
005514 
005516 
005522 
005526 
005530 
005534 
005540 
005542 



136263 
00 1 427 



.1. 1 6 1 00 
116105 
042705 



032700 
001402 
052705 
032700 
001402 
052705 
032700 
001402 
052705 



005626' 000112 



005546 0047 



000102 
000106 
177400 



000040 

000000C 
000300 

OOOOOOC 
000020 

OOOOOOC 



0000000 



005552 
005554 
005560 
005562 
005566 
005572 
005574 
005600 



005202 
020227 
101010 
062701 
020227 
001303 
062703 
000700 



000003 

000020 
000002 

000040 



005602 
005606 



005614 
005616 
005620 



013703 
152763 



012603 
012602 
000207 



000066 ' 
000100 000004 



005622 
005625 



00 1 
020 



020 



BITB 



GPFRXR<R2>> QPRISRCR3); Is a received character ready? 



BEQ 3* 

Get received character 

MOVB QPRSRA(R1)>R0 

MOVB GPRRRA<R1),R5 

8.1'C # A C<377>» R5 



; Br if not 



Get status flags for character 
Get the received character 
Mask character to 8 bits 



4*: 



5$: 



6* 



3*: 



Set status flags in R5 to simulate status flags returned by DL11 

BIT #QP$RPE> RO iDid we have a parity error? 

BEG 4* ;Br if not 

BIS #RBERR!RCVPAR>R5;Set parity-error flags 

BIT #QP$RFE!QP$BRK, RO ; Framing error or break? 

BEQ 5* ; Br if not 

BIS #RBERR!FRMERR,R5i Set framing-error flags 

BIT #QP$ROE> RO ;Did an overrun occur? 

BEQ 6* i Br if not 

BIS #RBERR!QVRRUN, R5; Set overrun flags 

Call TTINPT to process the received character 

CALL ©TTINPT ; Enter character input routine 

Check for other lines connect to the quad unit that may need service 

Advance line # within quad unit (0-3) 

Have we serviced all lines? 

Br if yes 

Point to registers for next channel 

Time to advance register base to DUART 1? 

Br if not 

Point to registers for DUART 1 

Go service next line 

We have serviced all four lines. 
Reenable interrupt for quad line unit. 



IMC 


R2 


CMP 


R2, #3 


BHI 


1% 


ADD 


#QPRCOF, Rl 


CMP 


R2, #2 


BNE 


1* 


ADD 


#QPRUOF, R3 


BR 


1* 



7*: MOV 
BISB 

Finished 

MOV 
MOV 
RETURN 



QPCSR, R3 ;Get address of base of registers for DUART O 
#QP*IEN* QPRMSR(R3) ; Set interrupt-enable bit 



<SP)+, R3 
<SP)+, R2 



j Return through TTRSAV which restors regs 



Vector containing the proper bit mask to test for transmitter-ready 
in the Interrupt Status Register for each line. 



001 QPFTXR: . BYTE 



1, 20, 1, 20 



Vector containing the proper bit mask to test for receiver-done 
in the Interrupt Status Register for each line. 
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114 j 

115 005626 002 040 002 QPFRXR: .BYTE 2,40,2,40 
005631 040 

116 .EVEN 



c 
c 



{ 
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quad I ine port 



3 








4 








5 








6 








7 








8 








9 








10 


005632 


1 0346 




11 
IP 
13 


005634 


010546 










14 








15 


005636 


110061 


0000010 


16 








17 








18 








19 


005642 


004737 


006236 ' 


20 








£2. X 








22 








23 








24 








25 








26 


005646 


0:10003 




27 


005650 


042703 


OOOOOOC 


28 


005654 


116303 


005776 ' 


29 


005660 


010346 




30 


005662 


072327 


000004 


31 


005666 


052603 




32 


005670 


110365 


000 i 02 


33 








34 








35 








36 


005674 


032700 


0000000 


37 


005700 


001403 




38 


005702 


012703 


000002 


39 


005706 


000402 




40 


005710 


012703 


000003 


41 


005714 


032700 


0000000 


42 


005720 


001003 




43 


005722 


052703 


000020 


44 


005726 


000405 




45 


005730 


032700 


OOOOOOG 


46 


005734 


00 1 402 




47 


005736 


052703 


000004 


48 


005742 






49 


005750 


112765 


000020 000104 


50 


005756 


110365 


000 1 00 


51 


005762 






52 








53 








54 








55 


005770 


0.12605 




56 


005772 


012603 




57 


005774 


000207 





. SBTTL QPSSPD 



Bet speed for quad line port 



QPSSPD is called to set the transmit/receive speed for a lint 
connected to the quad serial line unit. 



I n p u t s : 
RO ~ Speed code 
Rl = Physical line index number. 



QPSSPD: MOV 

MOV 



R3, -<SP> 
R5, -<SP) 



Save info about baud rate for this line 

MOVB RO, LMXPRM+KR1) > Save info in line table 

Convert line number into quad unit address 

CALL QPCVLA ; Convert line # to address 

At this point, 
R5 = Base address of T-egisters for quad unit and channel. 



Set transmit/receive speed 



MOV 


RO, R3 


B1C 


#--c<:lp$spd:>, R3 


MOVB 


QPSPD<R3>, R3 


MOV 


R3, -<SP) 


ASH 


#4, R3 


BIS 


<SP)+,R3 


MOVB 


R3, QPRCSA<R5) 



Get control flags 

Clear all but speed value 

Get speed code for quad unit 

> Position speed code for receive 
;0r in transmit speed 
; Set speed for line 



Set character length and parity 



1$: 
2$: 



3$: 



4*: 





BIT 


#LP*7BT, RO 




BEQ 


1* 




MOV 


#QP*7BR,R3 




BR 


2* 




MOV 


#GP*8BR, R3 




B I T 


#LP*PAR, RO 




BNE 


3* 




BIS 


#QP*NPR, R3 




BR 


4* 




BIT 


#LP*ODD, RO 




BEQ 


4* 




BIS 


#QP$ODD, R3 




DISABL 






MOVB 


#QP*RPR, QP 




MOVB 


R3, QPRMRA< 




ENABL 




F i n i 


shed 






MOV 


<SP>+, R5 




MOV 


<SP>+, R3 




RETURN 





7 bit characters wanted? 

Br if not 

Get 7 bit char flags 

Get 8 bit char flags 
Is parity wanted? 
Br if yes 
Set no-parity flag 



Odd parity wanted? 
Br if not 
Select odd parity 
> ; ## Disable interrupts #*• 
#QP*RPR, QPRCRA(RS) iiiSelect mode register 1 

> ; ; Set char length and parity 
i *# Enable interrupts «•* 
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58 










59 










60 










61 










62 


005776 


000 


000 


00.1 




006001 


002 


003 


004 




006004 


005 


006 


012 




006007 


007 


010 


000 




006012 


on 


000 


013 




006015 


014 







> Vector of values to convert TSX-Plus standard transmit/receive 
.; speed codes into codes f : or the quad serial line unit. 

OPSPD: , BYTE 0. , 0. , 1 . , 2. , 3. , 4. , 5. , 6. , 10. , 7. , 8. , O. , 9. , 0. , 1 1. , 12. 



EVEN 



4 

i 



( 



i 

€ 



TSXPRO - 
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.1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
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006016 010546 



006020 004737 006236 ' 



006024 032700 0000000 
006030 001404 



006032 112765 000140 000104 
006040 000403 



. SBTTL QPSBRK — Control break transmission to quad line unit 

QPSBRK is called to start or stop transmitting a break character to 
a line connected to the quad serial line unit. 

Inputs 
RO = Break control flag <MS$BRK> 
Rl - Physical line index number. 

QPSBRK: MOV R5, -<SP) 

Convert line number to address of control register 

CALL QPCVLA > Convert line # to address 

At this point? 
R5 ~ Base address of registers for quad unit and channel. 

See if tue are to start or stop sending a break 



BIT #MS*BRK, RO 
BEQ 1* 

Start sending a break 



; Start or stop sending a break? 
i Br if stop 



MOVB #QP*SBT, QPRCRA(R5) ; Start break transmission 
BR 9* 



Stop sending a break 

006042 112765 000160 000104 1*: MOVB #QP*EBT> QPRCRA(R5) ; Stop break transmission 

Finished 



006050 012605 
006052 000207 



9*: 



MOV (SP>+, R5 
RETURN 



\ 
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SBTTL QPGDSS 



(r!tt data set status for line 



3 

4 

5 

6 

7 



9 

10 

15 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006054 010346 
006056 0.1.0546 



006060 004737 006260 ' 



006064 005000 

006066 136365 006144' 000132 

006074 00 1 402 

006076 052700 OOOOOOG 



006102 136365 006140' 000132 

006110 001402 

006112 052700 OOOOOOG 



QPGDSS is called to get the data set (modem) status for a line 
connected to the quad serial line unit. 

Inputs: 
R.I. ~ Physical line index number. 

Outputs: 
RO =■ Generic data set status flags <MS$xxx) 



QPGDSS: MOV 
MOV 



R3.- -iSP) 
R5, -<SP) 



Convert line number to address of control register 

CALL QPCVLX ; Convert line # to address 

At this point, 

R5 = Base address of registers for quad unit. 

R3 - Table index whose value depends on whether we are accessing 

lines O or 1 (DUART O) or lines 2 and 3 (DUART 1) 

and the configuration 4/0 or 2/2. 

Line Config Value 



0/2 


4/0 





1/3 


4/0 


1 


0/2 


2/2 


2 


1/3 


2/2 


3 



See if the phone is ringing 

CLR RO ; Develop flags in RO 

BITB QPFRKR3), QPRIP(R5) i Is the RI flag set for line? 

BEQ 1* iBr if not 

BIS #MS$RNG> RO i Set ring status flag for return 



See if carrier is detected 



1*: 



BITB 

BEQ 

BIS 



QPFCD<R3), QPRIPCR5) ;Is carrier detected? 

2* i Br if not 

#MS*CAR, RO i Set carrier-detected flag for return 



See if Data Terminal Ready is asserted 



006116 136363 006150' 006154' 2$: 

006124 001402 

006126 052700 OOOOOOG 



006132 0.12605 
006134 012603 
006136 000207 



3*: 



BITB 


QPFDTR<R3> 


BEQ 


3* 


BIS 


#MS*DTR, RO 


F i n i s h e d 




MOV 


<SP)+, R5 


MOV 


<SP)+> R3 


RETURN 





i Br if not 

; Set DTR return flag 



Flag values to check Carrier Detect flag based on channel and config 
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010 004 QPFCD: .BYTE 4,10,4,0 

Flag values to check for line ringing 

000 010 QPFRI: .BYTE 0,0,10,0 

Flag values to check for < or assert) Data Terminal Ready 
010 004 QPFDTR: BYTE 4,10,4,0 

Shadow cells to hold value of output port settings 

000 000 QPOP: .BYTE 0,0,0,0 



50 






59 


006140 


004 




006143 


000 


60 






61 






62 






63 


006144 


000 




006147 


000 


64 






65 






66 






67 


006150 


004 




006153 


000 


68 






69 






70 






71 


006154 


000 




006157 


000 
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010346 
010546 



006164 004737 006260' 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 006160 

11 006162 
12 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
3.1. 

32 006170 

33 006174 
34 

35 
36 

37 006176 

38 006204 

39 006212 
40 

41 
42 

43 006214 

44 006222 
45 

46 
47 

48 006230 

49 006232 

50 006234 



SBTTL QPSDSS — Set data set status 



032700 
001407 



0000000 



116365 006150' 
156363 006150' 
000406 



000134 
006154 



116365 
146363 



012605 
012603 
000207 



006150' 
006150' 



QPSDSS is called to control the data set (modem) status for a line 
connected to the quad line unit. 



I n p u t s : 
Rl = Physical line index number. 
RO = Data set control flags (MS*xxx> 



QPSDSS: MOV 
MOV 



R3, -<SP> 
R5, -<SP> 



Convert line number to address of control register 

CALL QPCVLX ; Convert line # to address 

At this point; 

R5 •-■ Base address of registers for quad unit. 

R3 - Table index whose value depends on whether we are accessing 

lines or 1 (DUART 0) or lines 2 and 3 (DUART 1) 

and the configuration 4/0 or 2/2. 

Line Config Val ut> 



0/2 


4/0 





1/3 


4/0 


.1 


0/2 


2/2 


2 


1/3 


2/2 


3 



See if we should raise or drop Data Terminal Ready 



000136 1*: 
006154' 



9*: 



BIT 

BEQ 

Raise DTR 

MOVB 
B1SB 
BR 

Drop DTR 

MOVB 
BICB 

Finished 

MOV 
MOV 
RETURN 



#MS*DTR, RO 
1* 



; Raise or drop DTR? 
i Br to drop DTR 



QPFDTR<R3>» QPRS0PCR5); Raise bit in output port 
QPFDTR<R3) , QP0P<R3); Set bit in shadow cell 
9* 



QPFDTR<R3),GPRR0P(R5>; Drop bit in output port 
QPFDTR(R3), QP0P<R3); Clear bit in shadow cell 



(SP)+, R5 
<SP>+, R3 



TSXPRO 
GPCVLA 
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— Convert line 
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c 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



006236 



006236 016105 0000000 



006242 116505 
006246 063705 



006252 000207 



006254 000 
006257 060 



006254 ' 
000066 ' 



. SBTTL (iPCVLA 



Convert line index into register addresses 



GPCVLA is called to convert a TSX-Plus line index number of a line 
connected to the quad serial line unit into an address that corresponds 
to the base of the registers for the corresponding DUART and channel. 

Inputs: 

Rl - TSX-Plus line index number 

Outputs: 
R5 = Address of base of registers for DUART and channel 
<RO is preserved) 

GPCVLA: 

Determine which quad line this line is connected to 

MOV LMXLN(R1>,R5 J Get line # within quad line unit <0-3> 
Compute address of registers for this line 



2$: MOVB QPFADR<R5),R5 
ADD QPCSR, R5 



i Get offset based on DUART and channel 
;Add base CSR address for module 



020 



Fini shed 

RETURN 
Table of register address offsets based on line number 
040 QPFADR: .BYTE 0,20,40,60 

. EVEN 



TSXPRO - 
QPCVLX - 

:l 
p 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

26 
27 
28 
29 
30 
3.1. 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 

51 
52 
53 
54 
55 
56 
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006260 



006260 016103 OOOOOOG 



006264 1 1 6305 0063 1 4 ' 
006270 063705 000066 J 



006274 042703 17777 '6 

006300 105737 000110' 

006304 001402 

006306 062703 000002 



006312 000207 



006314 
006317 



000 
040 



000 



SBTTL QPCVLX 



Get address and configuration info 



QPCVLX is called to convert a TSX-Plus line number for a line connected 
to the quad serial line unit into two items of information: 
(1) the address of the base of the registers for the DUART to which 
the line is connected) <2) an index value in the range to 3 which 
indicates which channel of the DUART the line is connected to and 
which configuration (2/2 or 4/0) the serial line unit is in. 

Inputs: 
Rl ~ TSX-Plus line index number. 

Outputs: 
R5 •- Base address of registers for DUART. 
R3 = Channel and configuration index value as follows: 

Line C on f i q Va 3 u e 



0/2 


4/0 





1/3 


4/0 


1 


0/2 


2/2 


2 


1/3 


2/2 


3 



<R0 is preserved) 
QPCVLX: 

Determine which quad line this line is connected to 

MOV LMXLN(Rl), R3 i Get line # within quad line unit <0-3) 
Get the DUART base register address 



2$: 



MOVB QPFDAD<R3), R5 
ADD QPCSR, R5 



;Get offset based on DUART or 1 
j Add CSR address of base of module 



BIC 


#- s C<l>, R3 


TSTB 


QPMODM 


BEQ 


9* 


ADD 


#2, R3 



Get index value baned on line # and configuration 

; Get for lines 0&2, 1 for lines 1&3 

; Is this a 2/2 configuration? 

; Br if not 

; Set index based on conf ig 

F i n i s h e d 

9*: RETURN 

Table of address offsets to base registers for DUARTs based on line # 

040 QPFDAD: .BYTE 0,0,40,40 



. EVEN 

. EMDC i HE, QPASM 

Size of TSXPRO 



006320 



PROS I Z 



; End of quad line unit code 



; Size of TSXPRO 
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57 OOOOOi . END 

Errors detected: 

*** AsseinDier statistics 

Work file reads: 

Wor k file wr i t e s : 

Size of work file. .1 5J.' Words < 1 Pages) 

Size of core pool: 17720 Words < 70 Payes) 

Operating system: RT -I :t 

Elapsed time: 00:00:33.45 

DK: TSXPRO, LP: TSXPRO=DK: TSXPRO. MAC/C/N: SYM 



i 
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«DEAD 


1-38 


48-22 






















$HISTP 


1-38 


42- J 3 


43-13 




















*OITIM 


1-34 


22-52 


30-30 


39-27 


40-29 


41-13 


41- 


■19 


42-30 


43- 


-30 


51-47 


*PHONE 


1-36 


36-73 


49-34 




















*SXOFF 


1-41 


42-23 






















*SXON 


1-41 


43-23 






















fVDCSR 


3-~16# 


13 -OS 


13-58* 


21 -35 


21-39* 


22-21* 














*XCHAR 


1-34 


22-51 


22-59 


30-20 


30-29 


31-7 


39- 


-15 


39-26 


40- 


-16 


40-28 




42-17 


42-29 


43-17 


43-29 


50-21 


51-46 


51 


•54 










CDCLOK 


1-40 


36-19* 






















CDGDSS 


1 -36 


29-21* 


36-22* 


48-44* 


















CDSBRK 


1-42 


29-22* 


36-24* 


48-46* 


















CDSDSS 


1-36 


36-23* 


48-45* 




















CDSSPD 


1-42 


29-23* 


36-25* 


48-47* 


















CDSTRT 


1-36 


19-19* 


29-20* 


36-18* 


48-43* 
















CDSXOF 


1-39 


36-20i: 






















CDS X ON 


1-39 


36--21* 






















CDX*PC 


1-37 


36-14 


36-18* 


36-19* 


36-20* 


36-21* 


36- 


-22* 


36-23* 


36- 


-24* 


36-25* 


CDX*PI 


1 —38 


19-15 


19-19* 




















CDX*PP 


1-37 


29-15 


29-20* 


29-21* 


29-22* 


29-23* 














CDX*QP 


1-44 


48-43* 


48-44* 


48-45* 


48-46* 


48-47* 


49- 


-13 










CORUSR 


1-33 


24-21 






















CP*7BR 


8-63# 


47-50 






















CP*7BT 


8-83# 


46-14 


47-49 




















CP*8BR 


8~64# 


47-47 






















CP$8BT 


S-84# 


46-17 


47-46 




















CP*ACM 


8-2 1# 
























CP$ARP 


S~20# 
























CP*AS 


S-98# 
























CP*ASM 


8-59# 
























CPUAW3 


8-65# 


36-46 


47-42 




















CP*AW4 


8-74# 


36-44 


47-30 




















CP$AW5 


8-85# 


36-48 


46-14 


47-43 


















CPUBR 


8-94# 


38-20 






















CP*BRP 


8-107# 
























CPSBRR 


8-13# 


47-25* 






















CP$BW1 


8-lll# 
























CPSBW2 


8-1 15# 
























CP*CAR 


8-9# 
39-17* 


36-36 
46-28* 


36-70* 
46-29* 


36-71* 
47-29 


37-26* 


37-31* 


37- 


-36* 


38-18* 


38- 


-19 


38-23* 


CP*CBR 


8~10# 


36-59 


37-7* 


37-8 


















CP*CCS 


8-79# 
























CP$CD 


8~139# 


44-22 






















CPSCMM 


8-73# 
























CP*CR 


8-43# 


36-37 


36-60 




















CP$CRC 


S-22# 
























CP$CS 


8-131# 
























CP*CTS 


8-140# 
























CPSDBR 


8-8# 


14-45 


38-27 


39-28* 


40-30* 


42-31* 


43- 


-31* 










CP*DSR 


8-142# 
























CP*DTR 


8-130# 


36-75 


44-28 


45-19 


45-24 
















CP*EHP 


8-61 # 
























CP*EI 


8-47# 


37-36 


38-31 


39-17 


















CP*EIE 


8-5 i# 
























CP*EIR 


8-4 4# 
























CP*EOF 


8-103# 

























41-15 41-17 



38-31* 39-16* 
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CP$ER 


S-46# 


37-26 






CP$EVN 


8-70# 


47-36 






CP$IES 


8-120# 








CP$INP 


8-90# 








CP$IRC 


8-121# 








CP*ISR 


B~122# 








CP*ITE 


8-1 19# 








CP$LEN 


8~82# 








CP*LL 


8-126# 








CP*MOR 


8-ll# 


36-69* 


36-72* 


36-75* 


CP*M1R 


R~12# 


44-16 


44-22 




CP*MC0 


8-133# 








CP*MCV 


8-16# 


36-31* 


36-32* 




CPSMM 


8~132# 








CP*PAR 


8~69# 


47-33 






CP*RC 


8-99# 








CP$RCA 


8-89# 








CP*RCE 


8-60# 








CPURCL 


8~62# 








CP$REN 


8~57# 








CP$RES 


8-42# 


36-51 


37-31 


38-23 


CP$RFE 


8-102# 








CP*RI 


8-141# 


44-16 






CP*RIE 


8-53# 


36-71 






CP$RL 


8™127# 








CP$ROE 


8- 10.1 # 








CP$RPE 


8-100# 








CP*RR0 


8-35# 


38-18 






CPSRR1 


8-36# 








CPSRR2 


8-37# 


37-7 






CP*RTI 


S-45# 


39- .1 6 






CPfRTS 


8-129* 


36-72 






CP$RTV 


8-15# 


36-29* 


36-30* 




CP*SA 


8-41# 








CP*SB 


8-81# 


46-23 






CP*SBS 


8-71 # 








CP*SCL 


S-5B# 








CP$SH 


8~92# 








CP*SMI 


8-1 37# 








CP$SMS 


8-72# 








CP$SRS 


8-128# 








CP$TBM 


8-91 # 








CP$TCE 


8-784* 








CP$TEM 


8-93# 








CP*TEN 


8-80# 








CP$TI 


8-138# 








CPSTIE 


8-52# 


36-7. t 






CP*WR0 


3-27# 








CP*WR1 


8-28# 


36-63 


36-70 




CP$WR2 


S-29# 


36-49 


36-61 




CP*WR3 


8-30# 


36-45 


47-52 




CP$WR4 


8-31# 


36-43 


47-37 




CP*WR5 


8~32# 


Jv)""' 1 / 


46-28 


47-54 


CP*WR6 


8-33# 








CP$WR7 


8-34# 








CPCINT 


36-29 


36-31 


37-6# 





44-28 45-19* 4 5-24* 
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CPCLOK 


36-19 


41-9# 






CPGDSS 


36-22 


44-J.2# 






{JHIfcHK 


\3/-lt> 


■J/-1& 


J/ 


--1 / 


CPIESC 


37-20 


37-81 # 






CPINIT 


14-47 


36~9# 






CPIREC 


37-21 


37-27 


38 


-8# 


CPISRC 


37-22 


37-26# 






CP I TR 


37-19 


39-S# 






CP I VEC 


37-11 


37~15# 






CPLINE 


3-39# 


36-) 3* 


38- 


-35 


CPSBRK 


36-24 


46~:t0# 






CPSDSS 


36— e.3 


45-10# 






CPSSPD 


36-25 


36-55 


47- 


-10*! 


CPSTRT 


36-18 


40-7# 


41- 


-18 


CPXOFF 


36-20 


42~9# 






CPXOIM 


36-21 


43-9# 






DORTI 


12-7 


12-24# 






DOSCHD 


1-33 


24-17 






DWTYPE 


1-44 








EMMAP 


1-45 


11-1 9 






FORK 


1-35 


3-25 


22- 


-40 


FPSPIO 


1-41 


22-41 






FRKCQE 


1-33 


24-19 






FRMERR 


1-35 


32-28 


38- 


-22 


GETSLT 


3**"cS 


10-15 


15- 


-22 


GPRCSR 


3-27 


15-5 


16- 


-13# 


GPRSLT 


15-6 


17-13# 






GPRVEC 


15-4 


1 5-20# 


48- 


-35 


GPVC5R 


1 0-30 


1 5~5« 






GPVSLT 


1 5-6# 








GPVVEC 


10-29 


1 5-4# 






ICOCSR 


5-9# 


29-53* 


29- 


-58* 


ICODR 


5-8# 








IC1CSR 


5-ll# 


48-73* 






IC1DR 


5-10# 








IC2CSR 


5-13# 








IC2DR 


5~12# 








ILSW2 


1-36 


36-73 


49- 


-34* 


IM*CHP 


5-39# 








IM4CLK 


5~56# 








IM*CM 


5-32# 


30-35 


31- 


-11 


IM*CMB 


5-43# 








IMSCPD 


5-52# 


36-68 






IMSCPM 


5-53# 








IFtSCR 


5— 36# 


32-46 






IM*CRM 


5-30# 


29-53 


36- 


-68 


IM9CS 


5-41# 








IM«GIP 


5-20# 








IMSIM 


5- 3. 9# 








IM*IRP 


5-21# 








IMSKBR 


5-50# 








IMSKBT 


5-51 # 








IM*LMB 


5-42# 








IM$MM 


5~23# 








IM*OM 


5-33# 








IM$OR 


5-37# 









37 -IS 37-36# 



39-14 



51-75 

16-15 17-15 18- J 3* 48-38 

48-12 



29-59* 30-12* 30-35* 31-9* 31-10* 31-11* 32-46* 36-68* 



48-71 
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IM*PA 


5-45# 
























IM*PM 


5~17# 
























IMfPPR 


5~54# 


29-53 


32-46 




















IMSPPT 


5~55# 


29-58 


29-59 


30-12 


30-35 


31-9 


81- 


-10 


31 


-11 






IM$PR 


5-44# 
























IM$PRM 


5-46# 
























IM*RP 


5-22# 
























IM*RST 


5-28# 
























IM*SM 


5-34# 


29-58 


30-12 


31-9 


















IM*SR 


5-38# 


29-59 


31-10 




















IM*STV 


5~24# 
























IM$VS 


5-18# 
























IM4ZM 


5—31 # 
























IM4ZR 


5~35# 
























IM*ZRM 


5-29# 
























IM$ZS 


5-40# 
























INISLT 


1 0-9 


1 1 -6# 






















INTEN 


1-35 


22-9 


25-10 


26-9 


27-10 
















INTPRI 


1-36 
42-35 


11-38 
43-35 


21-45 

46-30 


23-25 
47-56 


30-7 
50-31 


30-8* 
52-51 


30- 


-39* 


35- 


-38 


39- 


-9 


INVEC 


1-39 


14-27 






















IOFIN 


1-41 


28-37 






















ITRMTP 


1-42 


19-23 


19-25* 




















KBDCHR 


3-24 


26-37=8 






















KPAR5 


1-40 
25-19* 


11-16 
26-13* 


11-17* 
26-42 


11-36* 
26-52* 


1 3-8 
27-19* 


13-15* 
28-27* 


13 


■97* 


21- 


-6 


21- 


-7* 


KPAR6 


1-40 


13-9 


13-37* 


13-96* 


26-43 


26-5.1* 














LCDTYP 


1-37 


19-15* 


29-15* 


36-14* 


49-13* 
















LMXLN 


1-45 


49-22 


56-18 


57-30 


















LMXNUM 


1-45 


14- J 9 


48-20 


49-24 


















LMXPRM 


1-34 


29-39 


35-13* 


36-52 


46-15 


47-16* 


52 


-15* 










LOUT I R 


1-39 


2 1 -20 


22-33 


23-24 


30-24 


39-21 


40 


-23 


51- 


-41 






LPH7BT 


1-43 


35-18 


46-15 


47-44 


52-36 
















LP$ODD 


1-43 


35-26 


47-34 


52-45 


















LPSPAR 


1 -43 


35-28 


47-31 


52-41 


















LP$SPD 


1-43 


35-85 


47-21 


52-27 


















LSTHL 


1-38 


48-19 






















LSW10 


1-41 


42-13* 


42-23* 


43-13* 


43-23* 
















LSW3 


1-34 


22-51* 


22-59* 


30-20* 


30-29* 


31 -7 


39- 


-15* 


39- 


-26* 


40- 


-16 




42-17 


42-29* 


43-17 


43-29* 


43-22* 


50-21 


51- 


-46* 


51- 


-54* 






LSW5 


1-34 


22-52* 


30-30* 


39-27* 


40-29* 


41-13 


4.1- 


-19* 


42- 


-30* 


43- 


-30* 


LXCL 


1-33 


24-24 






















MAXPOC 


1 -23# 


3-48 


20-38 


*s,ci."™5o 


















MMENBL 


1-45 


11-18 


1 1 -37 




















MS*BRK 


1-42 


34-14 


46-21 


53-21 


















MS$CAR 


1-37 


44-24 


54-43 




















MSfDTR 


1-37 


44-30 


45-14 


54-49 


55-32 
















MS*RNG 


1-37 


44-18 


54-37 




















MXC-SR 


1-46 


49-25* 






















MXVEC 


1-46 


49-26* 






















OVRR UN 


1-35 


32-31 


51-78 




















PIBASE 


3-40# 


13-14* 


13-15 


13-36 


13- -52 


21-7 


22 


-19 


22- 


-46 


25- 


-19 


PICQE 


2S-13# 


28-31 


28-36 




















PIDRIV 


1-29 


20-34# 






















PIENTR 


28-14 


28-23# 






















PIGO 


20-23 


20-42 


31-6* 





















39-10* 39-32* 40-34 



fl~44* 22-19* 22-46* 



40-28* 41-15 41-17* 

51-47* 



26-18 27-19 28-27 
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PIGOFL 


3~20# 


21-11 










PI HAN 


1-28 


2S-9« 










PIINAD 


3~9# 


13-33 










PIINIT 


14-29 


19-10# 










PI INT 


28-10 


28-19# 










P I I NWD 


3-10# 


13-38 










PIKIIR 


13-64 


26-5« 










PIKOIR 


13-68 


27~ 64! 










PILINE 


3-37# 


19-14* 


21-18 


22- 


-27 


23-12 


PXLQE 


28-12# 












PIMOC 


3-48# 


20-38* 


22-58* 


24- 


-30* 




PINDCH 


3~ 26 


23-11 ft 










PIOIFL 


3-4 1# 


21-31 


21-33* 


22- 


-15* 


22-65* 


PIQUIT 


20-18 


22-28 


23-18 


24- 


-13# 




PISCNT 


3-42# 


20- 1 3* 


20-46* 








PISRT 


1-40 


13-13 










PISTRT 


j 9— 19 


20-9# 










PIVFIR 


13-76 


25-6# 










PIVTIR 


13-66 


13-78 


22~5# 








PIXEOF 


3-12# 


25-20 










PIXICH 


3~13# 


26-19 










PIXIOI 


3-14# 


27-20 










PIXIOQ 


3-1 5# 


28-32 










PIXOCH 


3-H# 


22-1)3 










PP*7BT 


7-30# 


35-22 










PP*8BT 


7-31# 


35-20 










PP$BRS 


7-39# 












PPSCMF 


7-51# 


10-47 


29 --49 








PP*CMR 


7-1 1# 


10-47* 


29-34 


29- 


■49* 


32-37* 


PP*DBR 


7-8# 


14-38 


30-31* 


82- 


-18 




PP*DSR 


7-25# 












PP*DTR 


7-4 5# 












PP*EVN 


7-33# 


35-28 










PP$FB 


7~47# 


34-19 


34-24 








PP$FE 


7-24# 


32-26 










PP*LEN 


7-29# 












PP*M1F 


7-35# 


29-35 


35-17 








PP*M2F 


7-40# 


35-36 










PP*MDR 


7-10# 


29-35* 


35-31* 


35- 


-37* 




PPSQE 


7-23# 


32-29 










PP$QM 


7-50# 












PP*PAR 


7-32# 


35-25 










PP*PE 


7-22# 


32-23 










PP*RCS 


7-12# 


10-34 










PP$RCV 


7-15# 


29-27* 


29-28* 








PP*RD 


7-21# 












PP$RE 


7-48# 


10-47 


29-49 


32- 


-37 




PP$REN 


7~46# 












PP$RTS 


7™49# 












PP*SBL 


7-34# 












PP*STR 


7-9# 


32-23 


32-26 


32- 


-29 




PP$TCS 


7-13# 


1 0-35 










PP*TEN 


7-44# 












PP$TR 


7-20# 












PP$TRV 


7-16# 


29-29* 


29-30* 








PPGDSS 


29-21 


33-13# 











23 26 -45 



34-19* 34-24* 35-30 
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PPINIT 


14-40 


29-10# 






















PPLINE 


3-38# 


29-14 * 


30-16 


32-14 


















PPK1NI 


LJV-y/ 


'3'd-iW 






















PPSBRK 


29-22 


34-.l0# 






















PPSSPD 


29-23 


29-45 


35 9# 




















PPSTRT 


29-20 


31-7* 






















PPTERM 


1-38 


1 0-37* 


29-42 




















PPTINT 


29-29 


30-5# 






















PR 1 00 


3-18# 


21-37 






















PROBAS 


i-7# 


57-56 






















PROBRK 


1-38 


10-42 






















PROBUF 


1-46 


13-4J. 


13-54 




















PROHAN 


1-28 


13-5# 






















PROINI 


1-28 


10- 5# 






















PROLIN 


1-28 


14-144! 






















PRONOP 


1-28 


1 2-6# 






















PROSIZ 


1-28 


57-56# 






















PROSLT 


1-34 


1 1 - 28 


18-15 


18-20 


















PROVEC 


3-5# 


1 3-20 






















PSSREG 


4-5# 


10-44* 


10-46* 




















PSW 


1-36 


11-15* 


1 1 -38* 


21-19* 


21-27* 


21-45* 


23-23* 


iz. wJ ****" tz. tJ** 


35-29* 


35-38* 


40-12* 


40-34* 




42-9* 


42-35* 


43~9* 


43-35* 


46-27* 


46-30* 


47-51* 


47-56* 


50-20* 


50-31* 


52-48* 


52-51* 


QP*1SB 


9~60# 
























QP*22C 


9-44# 


48-30 






















QP$2SB 


9-61# 
























QP$40C 


9-45# 
























QP*7BR 


9-50# 


52-38 






















Q.P*8BR 


9-51 # 


52-40 






















QP*AWA 


9-95# 


48-56 


48-57 




















QP*AWI 


9-1 10# 


43-61 


48-62 




















QPSBCA 


9~101# 
























QP*BCB 


9-105# 
























QP*BEM 


9-54# 
























QP$BRK 


9-9 1# 


51-73 






















QP*CNR 


9~102# 
























QP*DRX 


9-68# 


49-55 






















QP*DTX 


9-70# 


49-55 


51-55 




















QP*EBT 


9-80# 


53-31 






















QP*ERX 


9-67# 


49-57 






















QP*ETX 


9-69# 


49-57 


50 -27 




















GP*FFL 


9-85# 
























QP*ID 


9~6# 


48-11 


48-34 


48-37 


















QP*IEN 


9-46# 


13-91 


48-33 


51-21 


51-99 
















QP*IPC 


9-106# 
























QP*NPR 


9-53# 


52-43 






















QPSODD 


9-52# 


52-47 






















QP9RAR 


9-100# 
























QP*RBC 


9~78# 
























GP*RBR 


9-104# 
























QP*RDN 


9-84# 
























OP*RES 


9-77# 


49-56 






















QPSRFE 


9-90# 


51-73 






















QP*ROE 


9-88# 


51-76 






















QPSRPE 


9-89# 


51-70 






















QP$RPR 


9~74# 


49-45 


52-49 




















QP«RRX 


9-75# 


49-55 
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QP*RTX 


9~76# 


49-57 










c 


QP*RXR 
QP*bb i 
QP*SFL 


9-56# 

9-55# 


t?J~ii& 










c 


QP*TAR 
QP*TBR 
QP*TC5 


9-99# 

9-103# 

9-62# 












( 


QPSTDN 
QP$TEM 
QP*TRS 


9~86# 
9~87# 
9-63# 












1 


QPASM 
QPCINT 


1 -22# 
13-88 


10-52 
51~6# 


13-85 


14-18 


48- 


-1 




QPC5R 


3~46# 


13-90 


48-29* 


49-17 


49- 


•25 


c 


QPCVLA 


49-38 


50-13 


52-19 


53-14 


56- 


-14# 




QPCVLX 


54-17 


55-15 


57-26# 










QPFADR 


■JO cc. 


56-3 J -U 










< 


QPFCD 
QPFDAD 


54-41 
57-34 


54~59# 
57-50# 












QPFDTR 


54-47 


54--67# 


55-37 


55-38 


55- 


-43 


i 


QPFRI 

QPFRXR 

QPFTXR 


54-35 
51-59 
51-35 


54~63# 

51-115# 

51-110# 










i 


QPGDSS 
QPINIT 
QPLINE 


4g-44 
10-53 
14-21 


54-12* 

48-7# 
49-9# 










i 


QPLX 


3-59# 


49-28* 


51-30 










QPMODM 


3-6Q# 


48-32* 


49-30 


57-40 








QPOP 


54-47 


54-7 1# 


55-38* 


55-44* 






< 


QPRACR 
QPRCOF 


9~27# 
9-37# 


48-56* 
51-89 


48-57* 








1 


QPRCRA 


9-25# 


49-45* 


49-55* 


49-56* 


49- 


-•57* 


QPRCSA 


9~24# 


49-51* 


52-32* 










QPRCSB 


9-29# 














QPRIMR 


9-28# 


48-61* 


48-62* 








< 


QPRIP 


9-20# 


54-35 


54-41 










QPRISR 


9-16# 


51-35 


51-59 










QPRMRA 


9-13# 


49-46* 


49-47* 


52-50* 






< 


QPRMRB 


9-17# 














QPRMSR 


9-12# 


13-91* 


48-30 


48-33* 


51- 


-21* 




QPROPC 


9-31# 


48-51* 


48-52* 








i 


QPRROP 
QPRRRA 
QPRRRB 


9-33# 
9-15# 
9-19# 


48-66* 
51-65 


48-67* 


55-43* 






i 


QPRSOP 
QPRSRA 
QPRSRB 


9-32# 
9-14# 
9-18# 


55-37* 
51-64 










i 


QPRTRA 
QPRTRB 


9~26# 
9-30# 


51-48* 












QPRUOF 


9-38# 


48-52* 


48-57* 


48-62* 


48- 


•67* 


t 


QPSBRK 
QPSDSS 


48-46 
48-45 


53-1 0# 
55-10# 












QPSLOT 


3-6 i# 


48-39* 


48-72 








i 


QPSPD 

QPSSPD 

QPSTRT 


52-28 
48-47 
48-43 


52-62# 
52-10# 
50-9# 










i 


QPVEC 


3-47# 


13-86 


48-36* 


49-26 






i 
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R50PI 


3~43# 












RBERR 


1-35 


32-25 


32-28 


32-31 


32-35 


51-7 


RCVPAR 


1-35 


32-25 


51-72 








REENAB 


3-17# 


21-40* 


22-20* 


22-61* 






RPRCSR 


1-44 


10-30* 










RPRVEC 


1-44 


10-29* 










RSR 


1-36 


1 4-34 










RT*BAS 


1-41 


13-14 










S4800 


1-43 


29-44 










S9600 


1-39 


29-41 


36-54 








SROMMR 


1-45 


11-18* 


11-37* 








SR3MMR 


1-45 


11-19* 










SS*BNK 


4-9# 












SS*BRK 


4-ll# 


10-44 


10-46 








SS*MQN 


4-10# 












TSXPRO 


l-6# 


1-27 










TTINPT 


1-35 


26-46 


32-4 1 


38-39 


51-82 




TTRSAV 


1-42 


32-9 


38-12 


51-14 






VDFLAG 


3-19# 


21-34* 


22-60* 








VIDCSR 


1-44 


10-24* 










VIDSLT 


3-44# 


10-17* 


10-21 








VIDTBL 


3— 52# 


10-13 










VIDVEC 


3-45# 


10-20* 


12-13 


13-75 






VPSCME 


6-13# 












VP*COO 


6-12# 












VP*DOI 


6-15# 


21-35 


21-39 


22-21 






VP*EFI 


6-10# 












VP*EOF 


6~11# 












VP*IMD 


6-8# 












VP*LMD 


6-7# 












VP*OEF 


6-9# 












VP*OMP 


6~14# 












VP*TRD 


6-1 6# 












VPAR5 


1-40 


1 1 -23 


13-19 


13-23 


13-34 


13-3 


VPAR6 


1-40 


13-40 










VSWPSL 


1-40 












VTIOO 


1-42 


19-25 











16: OB Pa q«? S~8 



51-75 51-78 
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